此主题相关图片如下:beforeloadinnertable15.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-11/2016112914595287828.png)
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:beforeloadinnertable13.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-11/20161129150597085.png)
另贴出代码BeforeLoadInnerTable:
msgbox(Date.Today)
Vars.Add("ddd",Gettype(Boolean),False)
If Vars("ddd") = False Then
Dim cd As System.Globalization.DateTimeFormatInfo = System.Globalization.DateTimeFormatInfo.CurrentInfo
Dim DateInfo As System.Reflection.FieldInfo = cd.Gettype.GetField("generalLongTimePattern", System.Reflection.BindingFlags.NonPublic Or System.Reflection.BindingFlags.Instance)
If DateInfo IsNot Nothing Then
DateInfo.SetValue(cd, "yyyy-MM-dd HH:mm:ss")
End If
Vars("ddd") = True
End If
msgbox(Date.Today)
'加载指定日期内的数据
Select Case e.DataTableName
Case "hc","fybxd"
e.Filter = "[rq] >= #" & e.User.ExtendedValues("起始日期") & "# And [rq] <= #" & e.User.ExtendedValues("结束日期") & "#"
'MessageBox.Show(CStr(e.User.ExtendedValues("起始日期")).Split(" ")(0) & " " & CStr(e.User.ExtendedValues("结束日期")).Split(" ")(0))
'MessageBox.Show(CDate(CStr(e.User.ExtendedValues("起始日期")).Split(" ")(0)) & " " & CDate(CStr(e.User.ExtendedValues("结束日期")).Split(" ")(0)))
'Return
Case "bmwz"
e.Filter = "[gmrq] >= #" & e.User.ExtendedValues("起始日期") & "# And [gmrq] <= #" & e.User.ExtendedValues("结束日期") & "#"
Case "bc"
e.Filter = "[jhrq] >= #" & e.User.ExtendedValues("起始日期") & "# And [jhrq] <= #" & e.User.ExtendedValues("结束日期") & "#"
Case "劳务登记","交易明细"
e.Filter = "[日期] >= #" & e.User.ExtendedValues("起始日期") & "# And [日期] <= #" & e.User.ExtendedValues("结束日期") & "#"
End Select