Foxtable(狐表) → 用户栏目 → 专家坐堂 → 报错至少一个参数没有被指定值


  共有248人关注过本帖树形打印复制链接

主题：报错至少一个参数没有被指定值
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		报错至少一个参数没有被指定值  发帖心情 Post By：2024/6/18 11:14:00 [显示全部帖子]

图片点击可在新窗口打开查看

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
详细错误信息：
至少一个参数没有被指定值。

如何解决？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/18 12:29:00 [显示全部帖子]

语法错误 (操作符丢失) 在查询表达式 '(制单人= '吴晓' 
Dim S-ql  or   ID in (4','6))' 中。= "selec-t * from  入库明细  where  (制单人= '" & _Username & "'  or   ID in (" & s.Replace(",", "','") & ")) "

Dim S-ql = "sele-ct * from  入库明细  where  (制单人= '" & _Username & "'  or   ID in (" & s.Replace(",", ",") & ")) "

ID是整数列，"ID2"是字符列，
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/18 13:55:00 [显示全部帖子]

.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
详细错误信息：
至少一个参数没有被指定值。
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/18 14:13:00 [显示全部帖子]

有问题了，老师帮看处理，谢谢
[upload=zip,新建文件夹

[此贴子已经被作者于2024/6/18 16:05:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/18 14:23:00 [显示全部帖子]

实例测试：登录--打开-入库查询窗口

报错：
NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,入库查询窗口,Button1,Click
详细错误信息：
至少一个参数没有被指定值。
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/18 14:49:00 [显示全部帖子]

需求：如果当前用户是入库明细的制单人，只能加载本人数据，如果当前用户是入库明细的制单人的主管，通过ID和ID2加载其下属所有数据，
用上面方法报错，如何解决？
或有更好的方法？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/18 16:33:00 [显示全部帖子]

如果当前用户是管理员，因为管理员可以看全部数据，他"ID2"的值会很多，如："ID2"（2，3，4，5，6，、、、、），会影响加载数据速度，管理员如何加载数据？

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/19 8:39:00 [显示全部帖子]

全局变量
Public _UserName As String '
Public _UserGroup As String '
Public _UserBm As String '
Public _UserFz As String '


事件
If _UserGroup = "总监" Then
    Dim Sq-l2 = "selec-t * from  入库明细  where  (Bm= '" & _UserBm & "'')"
    Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sql-2).Tables(0)
    Dim t2 As Table = e.Form.Controls("Table1").Table
    t2.datasource = dt2.Copy
    t2.AllowEdit = False '
Else
    Dim Sq-l6 = "selec-t * from  入库明细  where  (制单人= '" & _Username & "')"
    Dim dt6 As system.data.DataTable = db.ExecuteDataSet(Sq-l6).Tables(0)
    Dim t6 As Table = e.Form.Controls("Table1").Table
    t6.datasource = dt6.Copy
    t6.AllowEdit = False '
End If

执行报错：
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2022.8.18.1
错误所在事件：窗口,入库查询窗口,多条件1,Click
详细错误信息：
字符串的语法错误 在查询表达式 '(Bm= ''')' 中。

问题一：Public _UserGroup As String '，_UserGroup：User这个狐表固定写法？还是用户表的表名？
问题二：制单人= '" & _Username & "'这个使用全局变量，是正常使用，
              Bm= '" & _UserBm & "''这个同样使用全局变量，却报错，是什么原因，如何解决？
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/19 9:37:00 [显示全部帖子]

全局变量
Public _UserName As String '
Public _UserGroup As String '
Public _UserBm As String '
Public _UserFz As String '


事件
If _UserGroup = "总监" Then
    Dim Sq-l2 = "selec-t * from  销售表  where  (Bm= '" & _UserBm & "')"
    Dim dt2 As system.data.DataTable = db.ExecuteDataSet(Sql-2).Tables(0)
    Dim t2 As Table = e.Form.Controls("Table1").Table
    t2.datasource = dt2.Copy
    t2.AllowEdit = False '
Else
    Dim Sq-l6 = "selec-t * from  销售表  where  (制单人= '" & _Username & "')"
    Dim dt6 As system.data.DataTable = db.ExecuteDataSet(Sq-l6).Tables(0)
    Dim t6 As Table = e.Form.Controls("Table1").Table
    t6.datasource = dt6.Copy
    t6.AllowEdit = False '
End If

有值却找不到，无效？

此主题相关图片如下：全局变量.png
按此在新窗口浏览图片
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1144 积分：7556 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2024/6/19 15:10:00 [显示全部帖子]


[此贴子已经被作者于2024/6/19 15:25:34编辑过]
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.12500 秒, 5 次数据查询