如何在表C中找出对应的多行并自动增加到表A中 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位专家：您们好！

此主题相关图片如下：附件多行2表c.png

如“附件多行1表A”，我想在这个表A中输入图中数据后，能自动在“附件多行2表C”中找出对应”工艺名称“和对应”报料阶段“的行，并自动在表A中增加行并将“工序名称”、“加料顺序”、“材料名称”、“用量百分比”、“材料干湿”的数据填入。请问如何实现？谢谢！
图片点击可在新窗口打开查看

此主题相关图片如下：附件多行1表a.png

谢谢专家的回复，我将其修改为以下的代码后，未见在表A中增加行，也未见自动填入对应几列的数据，仅有“用量百分比”填入了1个“0”，请问是什么地方没有写对吗？请再帮我看看！谢谢！

Select Case e.DataCol.name

Case "报料阶段", "使用工艺名称"

If e.DataRow.isnull("报料阶段")= False AndAlso e.DataRow.isnull("使用工艺名称") = False Then

Dim Cols1() As String = {"使用工序","加料序号","材料名称","用量百分比","材料干湿"}

Dim Cols2() As String = {"使用工序","加料序号","材料名称","用量百分比","材料干湿"}

Dim drs As List(Of DataRow) = DataTables("工艺配方").Select("报料阶段 = '" & e.DataRow("报料阶段") & "' and 使用工艺名称 = '" & e.DataRow("使用工艺名称") & "'")

systemready = False

For i As Integer = 0 To drs.count-1

Dim dr2 As DataRow

If i = 0 Then

dr2 = e.DataRow

Else

dr2 = e.DataTable.addnew

End If

For j As Integer = 0 To Cols1.Length -1

dr2(Cols2(j)) = e.DataRow(Cols1(j))

dr2("报料阶段") = e.DataRow("报料阶段")

dr2("使用工艺名称") = e.DataRow("使用工艺名称")

systemready = True

End If

End Select

是的，我就是用的表C的名称。做小例子上传，怎么做？我还没有试过呢，能不能给点提示！谢谢！

是不是这样上传，我试一下，您帮我看看！谢谢了！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:水场配料核算系统.table

已更改了红色部分，数据能找到并填入，但还是只填入了第一行的数据，并没能够增加另外的几行，并填入工艺配方表中对应的数据。还请您再帮我看看如何解决。谢谢！

我的还是不行，能给我看看，你增加行的效果吗？谢谢！

我发现为什么我没有看到增加了行了，我是在表格的上方插入的行，表格中间已有一些以前输入的行数据，当我填入报料阶段和使用工艺名称后，自动增加的行是在表格的最下端，所以我没看到，以为是没有增加呢！谢谢！

主题：如何在表C中找出对应的多行并自动增加到表A中