'''
Dim y As Integer = Date.Today.Year
Dim dt1 As New Date(y, 1, 1)
Dim dt2 As New Date(y, 12, 31)
Dim cmd As New SQLCommand
Dim dt As DataTable
'Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
'cmd.C
'cmd.CommandText = "SELECT DISTINCT Name From {Users}"
'dt = cmd.ExecuteReader()
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Xjry}"
Dim Filter As String
Dim s As String = ""
Select Case _UserGroup
Case "录入者","",Nothing
s =_UserName
Case Else
Dim dr2 As DataRow
dr2 = DataTables("Users").Find("[Group] = '" & _UserGroup & "'")
If dr2 IsNot Nothing Then
s = dr2("Xjry")
End If
End Select
'Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# and 录入者 in('" & s.replace(",","','") & "')"
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "# and 录入者 in ('" & s.replace(",","','") & "')"
msgbox(Filter)
DataTables("订单").LoadFilter = Filter
DataTables("订单").Load()
此主题相关图片如下：加载2.jpg
加好友 
发短信
Post By：2021/5/27 12:15:00 [只看该作者]
