Foxtable(狐表)用户栏目专家坐堂 → [求助]增加行出错


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

主题:[求助]增加行出错

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


加好友 发短信
等级:婴狐 帖子:39 积分:450 威望:0 精华:0 注册:2023/3/13 16:07:00
[求助]增加行出错  发帖心情 Post By:2023/7/24 10:10:00 [只看该作者]

不存在名称为“订单_Table1'的DataTble



.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:表,派工_Table1,DataColChanged
详细错误信息:
Exception has been thrown by the target of an invocation.
Object reference not set to an instance of an object.

代码:
If e.DataCol.Name = "派单id" Then
    Dim Filter As String = "[派单id] = '" & e.NewValue & "'"
    e.DataRow("项目1") = DataTables("订单_Table1").GetComboListString("项目1", Filter).replace("|",",")
e.DataRow("工号") = DataTables("订单_Table1").GetComboListString("工号", Filter).replace("|",",")
End If
麻烦老师!看看怎么修改呢!谢谢!

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/24 10:13:00 [只看该作者]

提示很明显了,不存在"订单_Table1"这个表

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


加好友 发短信
等级:婴狐 帖子:39 积分:450 威望:0 精华:0 注册:2023/3/13 16:07:00
  发帖心情 Post By:2023/7/24 10:19:00 [只看该作者]

"订单_Table1"这个表,是通过双击行头再打开的一个窗口里。怎么解决呢?
[此贴子已经被作者于2023/7/24 10:19:27编辑过]

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/24 10:21:00 [只看该作者]

1、这个窗口没有打开,打开后才能使用里面的东西
2、这个窗口的表不是副本

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


加好友 发短信
等级:婴狐 帖子:39 积分:450 威望:0 精华:0 注册:2023/3/13 16:07:00
  发帖心情 Post By:2023/7/24 10:36:00 [只看该作者]

"订单_Table1"这个表用的sql表,怎么可以实现呢?
[此贴子已经被作者于2023/7/24 10:35:51编辑过]

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


加好友 发短信
等级:婴狐 帖子:39 积分:450 威望:0 精华:0 注册:2023/3/13 16:07:00
  发帖心情 Post By:2023/7/24 10:37:00 [只看该作者]

怎么加一个判定订单窗口没有打开不执行这段代码呢?

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


加好友 发短信
等级:超级版主 帖子:107147 积分:544978 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/7/24 10:40:00 [只看该作者]

If e.DataCol.Name = "派单id" Then
if forms("订单").opened then
    Dim Filter As String = "[派单id] = '" & e.NewValue & "'"
    e.DataRow("项目1") = DataTables("订单_Table1").GetComboListString("项目1", Filter).replace("|",",")
e.DataRow("工号") = DataTables("订单_Table1").GetComboListString("工号", Filter).replace("|",",")
end if
End If

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


加好友 发短信
等级:婴狐 帖子:39 积分:450 威望:0 精华:0 注册:2023/3/13 16:07:00
  发帖心情 Post By:2023/7/24 10:44:00 [只看该作者]

非常感谢。!

 回到顶部