如何将下面二个代码组合一起？
代码一
Dim db = HySq-l.DataBaseFactory.CreateDatabase("myjc")
Dim Sql2 = "Selec-t a.单号,a.编号, a.品名, a.单位, a.数量,b.供方, b.采购日期, b.制单人,b.UserID From cgmx a Inner Join cgzb b On (a.采购单号 = b.采购单号)"
Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sq-l2).Tables(0)
Dim t2 As Table = e.Form.Controls("Table1").Table
t2.datasource = dt2.Copy
t2.AllowEdit = False
代码二
Dim Filter As String = "{窗口_Table1}.制单人='" & _Username & "' "
Dim dr2 As DataRow
dr2 = DataTables("Users").Find("[Group] = '" & _UserGroup & "'")
Dim s As String
If dr2 IsNot Nothing Then
s = dr2("Xjry")
If s > "" Then
Filter = Filter & " or {窗口_Table1}.UserID in (" & s.Replace("，", ",") & ")"
End If
End If
msgbox(Filter)
DataTables("窗口_Table1").LoadFilter = Filter '
DataTables("窗口_Table1").Load()
[此贴子已经被作者于2023/8/31 16:32:30编辑过]
加好友 
发短信
Post By：2023/8/31 16:31:00 [只看该作者]
