设计了一个物料清单，
清单内容总共分了四个表记录：分别为：
l_goodsbompfxx 记录清单的备注，设计人等主要信息；
l_goodsbom 记录物料清单具体的清单内容（材料组成内容）
l_goodsbomgxyq 记录生产工序要求；
l_goodsbomxmgl 记录其他的一些管理条例；
以上四个表有相同的主产品ID,"goodsid"字段相关联；
设计了清单的增加，修改窗口，
同时还有一个能显示已经做好清单的列表窗口“基础清单列表”窗口，
现在基础配方列表窗口选择中任意一个产品后，点击““基础清单列表”窗口中的”修改“功能按钮，调出清单修改窗口，
清单修改窗口打开后后三个表无内容，请问老师是任何的问题造成的？
清单修改窗口加裁时代码如下：
'收集并填充字段内容
Dim dst As Table = Tables("基础清单列表_Table1")
Dim dr As Row = dst.Current '获得选定行
vars("str1") = dr("goodsid") '保存原货品单号,确保变更后可以删除原记录
'生成出入库明细数据
DataTables("l_goodsbompfxx").LoadFilter = "[goodsid] = '" & vars("str1") & "'"
DataTables("l_goodsbompfxx").Load(False)
DataTables("l_goodsbom").LoadFilter = "[goodsid] = '" & vars("str1") & "'"
DataTables("l_goodsbom").Load(False)
DataTables("l_goodsbomgxyq").LoadFilter = "[goodsid] = '" & vars("str1") & "'"
DataTables("l_goodsbomgxyq").Load(False)
DataTables("l_goodsbomxmgl").LoadFilter = "[goodsid] = '" & vars("str1") & "'"
DataTables("l_goodsbomxmgl").Load(False)
加好友 
发短信
Post By：2017/9/23 11:24:00 [显示全部帖子]
