AA（主表）和AB（明细）是关联表， DA（主表）和DB（明细）是关联表，
需求是：
当“DA（主表）”录入“产品编号”，并以“产品编号”从”AB（明细）“找到相同“产品编号”，
将其对应记录，赋值到”DB（明细）“，不要单击按键一条条新增行。
If e.DataCol.Name = "产品编号" Then
Dim nms() As String = {"品名","料号","料名","数量"}
If e.NewValue Is Nothing Then
For Each nm As String In nms
e.DataRow(nm) = Nothing
Next
Else
Dim dr As DataRow
dr = DataTables("AB").Find("[产品编号] = '" & e.NewValue & "'")
If dr IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
上面代码实现单条记录复制重复同一条记录，并是"产品编号"相应记录，比如："产品编号" PD01有二记录，
而上面是在”DB（明细）“新增一行只复制”AB（明细）“其第一条 ,如何解决？谢谢
加好友 
发短信
Post By：2021/6/3 13:48:00 [只看该作者]
