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
详细错误信息:
至少一个参数没有被指定值。
如何解决?
Dim S-ql = "sele-ct * from 入库明细 where (制单人= '" & _Username & "' or ID in (" & s & ")) "
.Dim S-ql = "sele-ct * from 入库明细 where (制单人= '" & _Username & "' or ID in (" & s & ")) "
调试提示:
sele-ct * from 入库明细 where (制单人= '吴虹' or ID in (4,6))
报错:
NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,入库查询窗口,Button1,Click
详细错误信息:
至少一个参数没有被指定值。
这个sql不应该有问题了,复制到后台数据库执行看看
有问题了,老师帮看处理,谢谢[upload=zip,新建文件夹
[此贴子已经被作者于2024/6/18 16:05:58编辑过]
实例测试:登录--打开-入库查询窗口
报错:
NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,入库查询窗口,Button1,Click
详细错误信息:
至少一个参数没有被指定值。
id2列没有数据,判断一下没有就不要添加ID这个查询条件