以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  代码求助，增加行并赋值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111204)

--  作者：home8225 --  发布时间：2017/12/17 17:19:00 --  代码求助，增加行并赋值 根据数量列，在子表增加对应数量的行，并对每个新增的行赋值关联主键ID Dim str As String = Tables("发货清单").Current("预备发货单号") For Each dr As DataRow In DataTables("发货清单").Select("预备发货单号 = \'" & str & "\'") Dim fdr As DataRow = DataTables("发货记录").Find("ID = \'" & dr("ID") & "\'")    If fdr Is Nothing Then        Dim t As Integer = dr("数量")       For Each r As Row In Tables("发货清单.发货记录").AddNew(t) r("ID") = dr(ID) Next     End If Next DataTables("发货记录").Save() MainTable = Tables("发货清单") 此主题相关图片如下：qq截图20171217171725.png

--  作者：有点甜 --  发布时间：2017/12/17 19:05:00 --   Dim str As String = Tables("发货清单").Current("预备发货单号") For Each dr As DataRow In DataTables("发货清单").Select("预备发货单号 = \'" & str & "\'")     Dim fdr As DataRow = DataTables("发货记录").Find("ID = \'" & dr("ID") & "\'")     If fdr Is Nothing Then         Dim t As Integer = dr("数量")         For i As Integer = 1 To t             Dim r As Row = Tables("发货记录").AddNew()             r("ID") = dr("ID")         Next     End If Next DataTables("发货记录").Save() MainTable = Tables("发货清单")

--  作者：home8225 --  发布时间：2017/12/18 11:05:00 --   谢谢