- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 多列填充 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168960)
-- 发布时间：2021/5/28 14:02:00
-- 多列填充
有“MRP查询”和“MRP物料需求”这两个表，两表没有建立关联，在”MRP物料需求"表事件数据DataColChanged输入以下代码，在”MRP物料需求“表中不会自动填充"MRP查询“表的内容，请问要如何解决？
Dim Cols1() As String = {"订单号","客户名称","产品代码","子件代码","子件名称","子件规格","下单日期","订单交期","订单数量","生产数量","单位","单用量","材质"}
Dim Cols2() As String = {"订单号","客户名称","产品代码","子件代码","子件名称","子件规格","下单日期","订单交期","订单数量","生产数量","单位","单用量","材质"}
For Each dr1 As DataRow In DataTables("MRP查询").Select("[生产数量] > 0")
Dim dr2 As DataRow = DataTables("MRP物料需求").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
-- 发布时间：2021/5/28 14:12:00
--
上实例。现代码看不出问题
-- 发布时间：2021/5/28 14:28:00
--
贴出DataColChanged完整代码。
如果说上面就是完整代码，那么用错地方了。不是随便找个事件就能写代码的。1楼这种代码适合放到按钮中处理。
另外这个代码执行没有数据，说明没有符合"[生产数量] > 0"条件的数据
-- 发布时间：2021/5/28 16:32:00
--
您好，那能否帮忙写个完整代码？谢谢！上面的代码我放在菜单按钮Click里面出现错误，按钮的代码要怎么改？谢谢！
[此贴子已经被作者于2021/5/28 16:36:17编辑过]
-- 发布时间：2021/5/28 16:35:00
--
如果是DataColChanged，参考：http://www.foxtable.com/webhelp/topics/1451.htm
看不懂就上传实例
-- 发布时间：2021/5/28 16:43:00
--
此主题相关图片如下：1.png
此主题相关图片如下：2.png
这两个表，因为第一个表是查询表，不能编辑，所以想把“MRP查询”表，自动复制生成“MRP物料需求”表，请问要怎么弄？
[此贴子已经被作者于2021/5/28 16:43:34编辑过]
-- 发布时间：2021/5/28 16:55:00
--
1楼代码没有问题的，放到按钮里执行，不要放到表事件处理。
搞不定就上传实例吧
-- 发布时间：2021/5/28 20:40:00
--
此主题相关图片如下：3.png
此主题相关图片如下：4.png
提示错误，请指教，谢谢！
-- 发布时间：2021/5/29 8:16:00
--
别折腾了，上实例吧，挺简单的问题
-- 发布时间：2021/5/29 10:01:00
--
删除表事件里的代码