Dim c As WinForm.Label = e.Form.Controls("Label9") For Each r As Row In e.Form.Controls("table1").Table.Rows Dim d2 As DataRow = DataTables("订单明细").Find("订单编号 = '" & r("订单编号"） & "'") If d2 Is Nothing Then d2 = DataTables("订单明细").AddNew
d2("客户文件名")= r("客户文件名") d2("客户名称") =c.Text d2("订单编号") = r("订单id") Next
加好友 
发短信
Post By：2017/6/29 16:35:00 [显示全部帖子]
