Sub Initialize
On Error Goto a
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = session.Documentcontext
Dim Tdoc As NotesDocument
Dim dc As NotesDocumentCollection
Print "Content-Type:application/octet-stream"
Print "Content-Disposition:attachment; filename=""PaiChe.csv"""
Print "姓名,年龄,性别,出生日期" & Chr(13)
Dim arr_t(3) As String
'构造查询条件
syb = doc.Chr_syb(0)
timeB = Cstr(doc.Chr_Fbsj_Start(0))
timeE = Cstr(doc.Chr_Fbsj_End(0))
TQuery = "Form='FormWeb_Pcmx_lr'" '要查询的表单名
If Trim(syb)<>"" Then
TQuery=TQuery+" & @Contains(Chr_syb;'"+syb+"')"
End If
If Trim(timeB)<>"" Then
TQuery=TQuery+" & (Time_ycrq>=["+Format(timeB,"yyyy-m-d")+"])"
End If
If Trim(timeE)<>"" Then
TQuery=TQuery+" & (Time_ycrq<=["+Format(timeE,"yyyy-m-d")+"])"
End If
Set dc = db.Search(TQuery,Nothing,0)
For i =1 To dc.Count
Set Tdoc = dc.GetNthDocument(i)
arr_t(0) = Tdoc.Chr_xm(0) '姓名
arr_t(1) = Tdoc.Chr_nl(0) '年龄
arr_t(2) = Tdoc.Chr_xb(0) '性别
arr_t(3) = Format(Tdoc.Time_ycrq(0),"yyyy-mm-dd") '出生日期
str_t = Join(arr_t,",")
If Left(str_t,1)=","Then
str_t=Right(str_t,Len(str_t)-1)
End If
Print str_t & Chr(13)
Exit Sub
a:
Msgbox "错误在代理sz_test中的第" & Erl & "行-------:" & Error
End Sub
On Error Goto a
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim doc As NotesDocument
Set doc = session.Documentcontext
Dim Tdoc As NotesDocument
Dim dc As NotesDocumentCollection
Print "Content-Type:application/octet-stream"
Print "Content-Disposition:attachment; filename=""PaiChe.csv"""
Print "姓名,年龄,性别,出生日期" & Chr(13)
Dim arr_t(3) As String
'构造查询条件
syb = doc.Chr_syb(0)
timeB = Cstr(doc.Chr_Fbsj_Start(0))
timeE = Cstr(doc.Chr_Fbsj_End(0))
TQuery = "Form='FormWeb_Pcmx_lr'" '要查询的表单名
If Trim(syb)<>"" Then
TQuery=TQuery+" & @Contains(Chr_syb;'"+syb+"')"
End If
If Trim(timeB)<>"" Then
TQuery=TQuery+" & (Time_ycrq>=["+Format(timeB,"yyyy-m-d")+"])"
End If
If Trim(timeE)<>"" Then
TQuery=TQuery+" & (Time_ycrq<=["+Format(timeE,"yyyy-m-d")+"])"
End If
Set dc = db.Search(TQuery,Nothing,0)
For i =1 To dc.Count
Set Tdoc = dc.GetNthDocument(i)
arr_t(0) = Tdoc.Chr_xm(0) '姓名
arr_t(1) = Tdoc.Chr_nl(0) '年龄
arr_t(2) = Tdoc.Chr_xb(0) '性别
arr_t(3) = Format(Tdoc.Time_ycrq(0),"yyyy-mm-dd") '出生日期
str_t = Join(arr_t,",")
If Left(str_t,1)=","Then
str_t=Right(str_t,Len(str_t)-1)
End If
Print str_t & Chr(13)
Exit Sub
a:
Msgbox "错误在代理sz_test中的第" & Erl & "行-------:" & Error
End Sub