huachang
01-11-06, 11:33 AM
帮我找下原因,谢谢各位了?如图所显示的错误提示.
具体代码如下:
Sub Initialize
Dim session As New notessession
Dim cdoc,doc As notesdocument
Dim db As notesdatabase
Dim dc As notesdocumentcollection
Dim view As NotesView
Set db=session.CurrentDatabase
Set cdoc=session.DocumentContext
Set view=db.getview("ybblist")
Set dc=view.GetAllDocumentsByKey(cdoc.xnnh(0),False)
temp="<table border='0' cellpadding=2 cellspacing=1 align=center class=tbbg> <tr class=toptrbg> <td width='40%' height='19' nowrap>辖内农户</td> <td width='12%' height='19' nowrap >村名</td> <td width='10%' height='19' nowrap>情况说明</td> <td width='13%' height='19' nowrap>年度</td> <td width=4%></td> </tr>"
Set doc=dc.GetFirstDocument
While Not doc Is Nothing
temp=temp+"<tr bgcolor=f8f8f8><td>"+doc.xnnh(0)+"</td><td>"+doc.cm(0)+"</td><td>"+doc.qksm(0)+"</td><td>"+doc.year(0)+"</td><td></td></tr>"
Set doc=dc.GetNextDocument(doc)
Wend
If dc.Count=0 Then
temp=temp+"<tr bgcolor=f8f8f8><td colspan=5 align=right style='padding-right:20px'>未找到符合条件的记录！</td></tr></table>"
Else
temp=temp+"<tr bgcolor=f8f8f8><td colspan=5 align=right style='padding-right:20px'>共找到"+Cstr(dc.count)+"个记录！</td></tr></table>"
End If
cdoc.htmlstr=temp
End Sub
可以保存,删除,就是查询出现页面有代码:
辖内农户：
<table border='0' cellpadding=2 cellspacing=1 align=center class=tbbg> <tr class=toptrbg> <td width='40%' height='19' nowrap>辖内农户</td> <td width='12%' height='19' nowrap >村名</td> <td width='10%' height='19' nowrap>情况说明</td> <td width='13%' height='19' nowrap>年度</td> <td width=4%></td> </tr><tr bgcolor=f8f8f8 > <td> <a href='/hqsoft/bsnh.nsf/0/6A7252A0D71A6A8848257219001364A0?opendocument'> q </a> </td> <td>q</td> <td> </td> <td>2006</td> <td><input class='hinput' type="checkbox" name="SelDoc" value='6A7252A0D71A6A8848257219001364A0'</td></tr><tr bgcolor=f4f4f4 ><td colspan=20 align=right nowrap>共有(1)个文档 1</font>[/b] / 1 页 <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='首页' target=_self >9</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='上一页' target=_self >7</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' target=_self >[1]</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='下一页' target=_self >8</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='尾页' target=_self >:</font></a> </td></tr></table> 全选
具体代码如下:
Sub Initialize
Dim session As New notessession
Dim cdoc,doc As notesdocument
Dim db As notesdatabase
Dim dc As notesdocumentcollection
Dim view As NotesView
Set db=session.CurrentDatabase
Set cdoc=session.DocumentContext
Set view=db.getview("ybblist")
Set dc=view.GetAllDocumentsByKey(cdoc.xnnh(0),False)
temp="<table border='0' cellpadding=2 cellspacing=1 align=center class=tbbg> <tr class=toptrbg> <td width='40%' height='19' nowrap>辖内农户</td> <td width='12%' height='19' nowrap >村名</td> <td width='10%' height='19' nowrap>情况说明</td> <td width='13%' height='19' nowrap>年度</td> <td width=4%></td> </tr>"
Set doc=dc.GetFirstDocument
While Not doc Is Nothing
temp=temp+"<tr bgcolor=f8f8f8><td>"+doc.xnnh(0)+"</td><td>"+doc.cm(0)+"</td><td>"+doc.qksm(0)+"</td><td>"+doc.year(0)+"</td><td></td></tr>"
Set doc=dc.GetNextDocument(doc)
Wend
If dc.Count=0 Then
temp=temp+"<tr bgcolor=f8f8f8><td colspan=5 align=right style='padding-right:20px'>未找到符合条件的记录！</td></tr></table>"
Else
temp=temp+"<tr bgcolor=f8f8f8><td colspan=5 align=right style='padding-right:20px'>共找到"+Cstr(dc.count)+"个记录！</td></tr></table>"
End If
cdoc.htmlstr=temp
End Sub
可以保存,删除,就是查询出现页面有代码:
辖内农户：
<table border='0' cellpadding=2 cellspacing=1 align=center class=tbbg> <tr class=toptrbg> <td width='40%' height='19' nowrap>辖内农户</td> <td width='12%' height='19' nowrap >村名</td> <td width='10%' height='19' nowrap>情况说明</td> <td width='13%' height='19' nowrap>年度</td> <td width=4%></td> </tr><tr bgcolor=f8f8f8 > <td> <a href='/hqsoft/bsnh.nsf/0/6A7252A0D71A6A8848257219001364A0?opendocument'> q </a> </td> <td>q</td> <td> </td> <td>2006</td> <td><input class='hinput' type="checkbox" name="SelDoc" value='6A7252A0D71A6A8848257219001364A0'</td></tr><tr bgcolor=f4f4f4 ><td colspan=20 align=right nowrap>共有(1)个文档 1</font>[/b] / 1 页 <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='首页' target=_self >9</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='上一页' target=_self >7</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' target=_self >[1]</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='下一页' target=_self >8</font></a> <a href='/hqsoft/bsnh.nsf/ybblist?OpenForm&page=1' title='尾页' target=_self >:</font></a> </td></tr></table> 全选