- 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=170833)
-- 发布时间：2021/8/9 9:43:00
-- 表的输入
早上好老师
怎么样能实现同一表格内的一列值等同与另一列表格。如图[关联客户]列完全等与[进货客户]列。
因为我的[进货客户]列是表达式列，不能与主表关联。我的[关联客户]是数据列
此主题相关图片如下：微信截图_20210809093323.png
此主题相关图片如下：微信截图_20210809093323.png-- 发布时间：2021/8/9 9:52:00
--
[进货客户]列的表达式发上来看看
-- 发布时间：2021/8/9 9:54:00
--
这样的
-- 发布时间：2021/8/9 9:57:00
--
此主题相关图片如下：微信截图_20210809095305.png
-- 发布时间：2021/8/9 10:08:00
--
参考：http://www.foxtable.com/webhelp/topics/1451.htm
明细表datacolchanged
If e.DataCol.Name = "进货编号" Then \'如果内容发生变动的是品名列
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("关联客户") = Nothing \'那么清空此行单价列的内容
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("进货主表").Find("[进货编号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("关联客户") = dr("进货客户")
End If
End If
End If
If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
e.DataRow("关联客户") = Nothing \'那么清空此行单价列的内容
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("进货主表").Find("[进货编号] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("关联客户") = dr("进货客户")
End If
End If
End If
-- 发布时间：2021/8/9 10:20:00
--
提示！运行错误
-- 发布时间：2021/8/9 10:21:00
--
Exception has been thrown by the target of an invocation.
-- 发布时间：2021/8/9 10:26:00
--
看懂代码，改为自己的列名和表名。
如果完全看不懂代码，就上传实例。