查看: 2417|回复: 4

[FAQ] 各位大哥大姐帮我个忙 看看我的函数为什么执行不下去了

[复制链接]
论坛徽章:
0
发表于 2007-3-20 14:44 | 显示全部楼层 |阅读模式
Function NJHSend(SMSmodule As String,SMSReceiver As String,session As NotesSession,maindb As NotesDatabase,nowTime As NotesDateTime) As String
       
        '输入:发出短信的模块,短信接收人
        '输出:string
        '功能:根据接收人、模块和当前时间,判断是否可以发送,如果可以发送则输出号码,
       
        On Error Goto ErrorHandle
       
       
        Dim db As notesdatabase
        Dim mobileview As notesview
        Dim doc As notesdocument
        Dim view As notesview
        Dim item As notesitem
        Dim sSearchStr As String
        Dim returnStr As String
        Dim flag As String
       
        Set db=session.getdatabase("","names.nsf"
        Set mobileview = db.getView ("PeopleByName"
        Set doc = mobileview.GetDocumentByKey(SMSReceiver)
        If doc Is Nothing Then
                returnStr = "-1"
                Goto bk
        End If
        If doc.OfficePhoneNumber(0)="" Then
                returnStr="-1"
                Goto bk
        End If
        returnStr=doc.OfficePhoneNumber(0)
bk:                NJHSend=returnStr
        Exit Function
ErrorHandle:
        Msgbox "执行NJHSend() 函数错误:" & Err & "错误行:" & Erl
        ErrLog "执行NJHSend() 函数错误:" & Err & "错误行:" & Erl
        Exit Function
End Function

Set doc = mobileview.GetDocumentByKey(SMSReceiver)
这句话执行不下去了 我不明白为什么 请各位大虾帮个忙吧 我确定函数的各个参数都已经传进来了
论坛徽章:
1
IBM软件技术精英协会成员
日期:2006-12-27 18:43:27
发表于 2007-3-21 10:10 | 显示全部楼层
查问题起码要把出错信息附上吧?

另外的建议:遇到自己百思不得其解的问题,不要总想用人脑代替电脑去解析程序,而应该多用调试语句输出错误点附近的环境值,多用排除法,多半自己就可以解决。

使用道具 举报

回复
论坛徽章:
0
发表于 2007-3-22 16:06 | 显示全部楼层
从程序上看到那一步是要获取到名为PeopleByName的视图, 但是标准的names.nsf里好象没有这样的视图的, 如果是自己创建的视图, 而且错误消息是类似于object viriable not set之类的就检查一下视图的名字是否正确

使用道具 举报

回复
论坛徽章:
1
IBM软件技术精英协会成员
日期:2007-01-24 14:56:37
发表于 2007-3-22 17:05 | 显示全部楼层
是错在上一句,获得视图PeopleByName对象的问题。

使用道具 举报

回复
论坛徽章:
0
 楼主| 发表于 2007-3-23 13:50 | 显示全部楼层
谢谢各位的帮忙 我的问题已经解决了 只是我不知道怎么删除这个帖子
第一次提问题 不是很会用论坛 呵呵 够笨吧  嘿嘿

使用道具 举报

回复

您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

TOP技术积分榜 社区积分榜 徽章 团队 统计 知识索引树 积分竞拍 文本模式 帮助
  ITPUB首页 | ITPUB论坛 | 数据库技术 | 企业信息化 | 开发技术 | 微软技术 | 软件工程与项目管理 | IBM技术园地 | 行业纵向讨论 | IT招聘 | IT文档
  ChinaUnix | ChinaUnix博客 | ChinaUnix论坛
CopyRight 1999-2011 itpub.net All Right Reserved. 北京盛拓优讯信息技术有限公司版权所有 联系我们 
京ICP备09055130号-4  北京市公安局海淀分局网监中心备案编号:11010802021510 广播电视节目制作经营许可证:编号(京)字第1149号
  
快速回复 返回顶部 返回列表