老师，请帮忙一下 ，我这是商品名称表，商品名称附表 ，实现在增加一条商品记录时，然后自动在商品名称附表增加记录，增加的内容为商品的相关信息，加上库房表里取得的仓库名，把该仓库的 期初数量 默认赋值为 0
'增加商品名称附表期初库存信息
Dim cks As New List(Of String)
cks = DataTables("库房表").GetUniqueValues("", "库房名称")
For Each ck As String In cks
Output.Show(ck)
Next
Dim Cols1() As String = {"录入员","日期","商品类别","商品编号","商品名称","规格","型号","单位"} '商品名称表
Dim Cols2() As String = {"录入员","日期","商品类别","商品编号","商品名称","规格","型号","单位","仓库名称","期初数量"} '商品名称附表
For Each dr1 As DataRow In DataTables("商品名称表").datarows
Dim dr2 As DataRow = DataTables("商品名称附表").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
'增加商品名称附表期初库存信息
DataTables("商品名称附表").save
For Each r As Row In Tables("商品名称附表").Rows
r.save
Next
Tables("商品名称表").current.save
加好友 
发短信
Post By：2018/12/19 1:45:00 [只看该作者]
