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


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

主题:报错至少一个参数没有被指定值

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


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

需求:如果当前用户是入库明细的制单人,只能加载本人数据,如果当前用户是入库明细的制单人的主管,通过ID和ID2加载其下属所有数据,
用上面方法报错,如何解决?
或有更好的方法?

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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


加好友 发短信
等级:六尾狐 帖子:1360 积分:9034 威望: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 下一页