Sub Click(Source As Button)
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dlgdoc As NotesDocument
Dim tjstr As String
Dim ksdt As NotesDateTime
Dim jsdt As NotesDateTime
Dim view As NotesView
Set db = ss.CurrentDatabase
Set dlgdoc = New NotesDocument(db)
Set view = db.GetView("今天修改的表单")
'选择要修改的记录的序号对话框
dlgdoc.Form = "fm_select_sn"
tjstr$ = {SELECT ((Form = "注册信息表") | (Form = "detail")) &(changeflag = "0000000000"}
dlg:
If ws.dialogbox("fm_select_sn",True,True,False,False,False,False,"请选择...",dlgdoc,True,False,False) Then
If Trim(dlgdoc.ksdate(0)) = "" Then
Messagebox "请填写开始时间", 64 , "提示"
Goto dlg
End If
If Trim(dlgdoc.jsdate(0)) = "" Then
Messagebox "请填写结束时间", 64 , "提示"
Goto dlg
End If
Set ksdt = New NotesDateTime(dlgdoc.ksdate(0))
Set jsdt = New NotesDateTime(dlgdoc.jsdate(0))
While ksdt.DateOnly<jsdt.DateOnly Or ksdt.DateOnly=jsdt.DateOnly
tjstr = tjstr + {| (changeflag ="}+Cstr(Year(ksdt.Dateonly))+Right("00"+Cstr(Month(ksdt.Dateonly)),2)+Right("00"+Cstr(Day(ksdt.Dateonly)),2)+{"}
'view.SelectionFormula = tjstr$
tjstr = tjstr + {)}
'view.SelectionFormula = tjstr$
'Msgbox(tjstr)
Call ksdt.AdjustDay(1)
Wend
tjstr = tjstr + {)}
view.SelectionFormula = tjstr$
Call view.Refresh()
view.AutoUpdate=True
End If
End Sub
Dim ss As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim dlgdoc As NotesDocument
Dim tjstr As String
Dim ksdt As NotesDateTime
Dim jsdt As NotesDateTime
Dim view As NotesView
Set db = ss.CurrentDatabase
Set dlgdoc = New NotesDocument(db)
Set view = db.GetView("今天修改的表单")
'选择要修改的记录的序号对话框
dlgdoc.Form = "fm_select_sn"
tjstr$ = {SELECT ((Form = "注册信息表") | (Form = "detail")) &(changeflag = "0000000000"}
dlg:
If ws.dialogbox("fm_select_sn",True,True,False,False,False,False,"请选择...",dlgdoc,True,False,False) Then
If Trim(dlgdoc.ksdate(0)) = "" Then
Messagebox "请填写开始时间", 64 , "提示"
Goto dlg
End If
If Trim(dlgdoc.jsdate(0)) = "" Then
Messagebox "请填写结束时间", 64 , "提示"
Goto dlg
End If
Set ksdt = New NotesDateTime(dlgdoc.ksdate(0))
Set jsdt = New NotesDateTime(dlgdoc.jsdate(0))
While ksdt.DateOnly<jsdt.DateOnly Or ksdt.DateOnly=jsdt.DateOnly
tjstr = tjstr + {| (changeflag ="}+Cstr(Year(ksdt.Dateonly))+Right("00"+Cstr(Month(ksdt.Dateonly)),2)+Right("00"+Cstr(Day(ksdt.Dateonly)),2)+{"}
'view.SelectionFormula = tjstr$
tjstr = tjstr + {)}
'view.SelectionFormula = tjstr$
'Msgbox(tjstr)
Call ksdt.AdjustDay(1)
Wend
tjstr = tjstr + {)}
view.SelectionFormula = tjstr$
Call view.Refresh()
view.AutoUpdate=True
End If
End Sub