Dim db = HySq-l.DataBaseFactory.CreateDatabase("YF123")
Dim Sq-l2 = "selec-t * from Users"
Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sq-l2).Tables(0)
dt2.TableName = "Users"
Dim t2 As Table = e.Form.Controls("Table2").Table
t2.datasource = dt2
t2.AllowEdit = True
'Msgbox(1)
Dim dr2 As DataRow '定义变量，定义dr2为表列的变量
dr2 = DataTables("入库查询窗口_Table2").Find("[Group] = '" & _UserGroup & "'")'定义dr2
Msgbox(2)
Dim s As String'定义变量为S
s = dr2("ID2")'定义变量为S
'Msgbox(3)
Dim Sq-l = "selec-t * from 入库明细 where (制单人= '" & _Username & "' or ID in ('" & s.Replace(",", "','") & "')) "
msgbox(Sq-l)
Dim dt As system.data.DataTable = db.ExecuteDataSet(Sq-l).Tables(0)
Dim t As Table = e.Form.Controls("Table1").Table
'msgbox(t)
t.datasource = dt.Copy
t.AllowEdit = False 'sqltab
执行后，报错：.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,入库查询窗口,Button1,Click
详细错误信息：
至少一个参数没有被指定值。
如何解决？
加好友 
发短信
Post By：2024/6/18 11:14:00 [只看该作者]
