以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  加载表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127451)

--  作者:13775189031
--  发布时间:2018/11/14 14:04:00
--  加载表

请教

 

Select Case user.group
    Case "采购"
        DataTables("采购管理台账").LoadFilter = "采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
        DataTables("物资采购明细表").LoadFilter = "中标情况_招标采购负责人 = \'" & User.Name & "\'"
    Case Else
        DataTables("采购管理台账").LoadFilter = ""
        DataTables("物资采购明细表").LoadFilter = ""
End Select
DataTables("采购管理台账").Load()
DataTables("物资采购明细表").Load()

 

显示错误:

 

.NET Framework 版本:2.0.50727.8793
Foxtable 版本:2018.10.9.1
错误所在事件:加载[采购管理台账]失败!
详细错误信息:
至少一个参数没有被指定值。

 

 

是哪有问题




--  作者:有点甜
--  发布时间:2018/11/14 14:21:00
--  
你的表格,没有对应的列【采购计划管理_招标采购负责人】,请认真核对列名,打开你数据库看一下对比。
--  作者:13775189031
--  发布时间:2018/11/14 14:30:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:捕获1.jpg
图片点击可在新窗口打开查看
表格和数据库里都有的呀

 


--  作者:有点甜
--  发布时间:2018/11/14 14:33:00
--  

打开你的数据库修改,明细多了前后的空格吧?改成正确的列名


--  作者:13775189031
--  发布时间:2018/11/14 16:29:00
--  

If User.Name = "申誉" Then
    DataTables("采购管理台账").LoadFilter = ""
Else
    DataTables("采购管理台账").LoadFilter = "采购计划管理_招标采购负责人 = \'" & User.Name & "\'"
End If
DataTables("采购管理台账").Load()

 

单独上面一段代码没问题,但加上下面这段代码就有问题了

 

Select Case user.group
    Case "物资"
        DataTables("物资采购明细表").LoadFilter = "中标情况_招标采购负责人 = \'" & User.Name & "\'"
    Case Else
        DataTables("物资采购明细表").LoadFilter = ""
End Select
DataTables("物资采购明细表").Load()

 

还是显示

.NET Framework 版本:2.0.50727.8793
Foxtable 版本:2018.10.9.1
错误所在事件:加载[采购管理台账]失败!
详细错误信息:
至少一个参数没有被指定值。

 

 



--  作者:有点甜
--  发布时间:2018/11/14 18:08:00
--  

1、单独执行下面的代码是否报错?

 

2、如果报错,去看看你【物资采购明细表】表的afterLoad事件,是不是写了什么代码。


--  作者:13775189031
--  发布时间:2018/11/15 13:22:00
--  

哦,是的


--  作者:有点甜
--  发布时间:2018/11/15 15:03:00
--  
以下是引用13775189031在2018/11/15 13:22:00的发言:

哦,是的

 

如果还有问题,实例发上来测试。


--  作者:632766525
--  发布时间:2019/12/28 13:18:00
--  
Dim cp As String = User.Name  
        Tables("TASK_TABLE").Filter="EXACUTOR=\'"& cp &"\'"

可能是数据类型转换的问题,参照上例调整下试试吧。

--  作者:wei0769
--  发布时间:2019/12/28 13:33:00
--  
列名用方括号[]括起来 试下