主题：动态表格及查询表关联

有赖于狐友的大力帮助，遇到的问题得以解决，这是我学习狐表的原因之一吧。由于本人愚蠢，又遇到问题了，请指导帮助，谢谢

 

已完成了入仓窗体导入材料需求的品种及数量，具体操作如下:在入仓窗体，点击导入材料需求→打开需求材料窗体→点击需求查询→在复选框勾选查询到的需求材料→导入。完成该工程需求材料入仓操作。

现遇到的问题，需帮助解决：

1、如何实现出仓窗体导入该工程需求材料功能。

已完成：在出仓窗体，点击导入材料需求→打开需求材料窗体→点击需求查询→在复选框勾选查询到的需求材料

未完成：→导入，将需求材料导入到出仓窗体的明细表。

即在需求材料窗体中如何修改导入的代码。

2、由于需求窗体中（需求窗体_table1）为查询表，如何与出仓表、入仓表进行关联。目的：统计出那一种材料累计入仓数量、累计出仓数量。

本人考虑过用模拟关联，本人不才，未能实现。

请指教，无尽感激。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新成ok.table

上了，因网速太不给力了。

你按说明操作一次入仓和出仓，就会发现入仓可以导入，出仓无法导入数据的。

现上网的地方速度太不给力了，晚上在家时我再详细描述吧，谢谢BIN,你明天有空时帮我看看，记得喔.谢谢！

问题见图片，例子也上传了。请老师帮助，谢谢各位。

问题见图片，例子也上传了。请老师帮助，谢谢各位。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新成ok_201402182007.zip

此主题相关图片如下：导入代码.png

回家途中，考虑到加个条件，结果还是可以的，不管怎样，还是谢谢你。多学习你的方法，以后一定有用的。

 

If Forms("入仓窗体").Opened Then
For Each r1 As Row In Tables("需求材料_Table1").GetCheckedRows
    Dim r2 As Row =Tables("入仓主表.入仓明细表").addnew
    r2("存货编码")=r1("存货编码")
    r2("材料名称型号规格")=r1("材料名称型号规格")
    r2("计量单位")=r1("计量单位")
    r2("计划数量")=r1("需求合计_数量")
Next
e.Form.Close
End If

If Forms("出仓窗体").Opened Then
For Each r1 As Row In Tables("需求材料_Table1").GetCheckedRows
    Dim r2 As Row =Tables("出仓主表.出仓明细表").addnew
    r2("存货编码")=r1("存货编码")
    r2("材料名称型号规格")=r1("材料名称型号规格")
    r2("计量单位")=r1("计量单位")
    r2("计划数量")=r1("需求合计_数量")
Next
e.Form.Close

 

下一步是根据你的指引，用COMPUTE统计，不明还谢谢你的帮助。

用到var变量,不行，帮我看看那出问题？谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新成ok_201402182238.zip