有“MRP查询”和“MRP物料需求”这两个表，两表没有建立关联，在”MRP物料需求"表事件数据DataColChanged输入以下代码，在”MRP物料需求“表中不会自动填充"MRP查询“表的内容，请问要如何解决？
Dim Cols1() As String = {"订单号","客户名称","产品代码","子件代码","子件名称","子件规格","下单日期","订单交期","订单数量","生产数量","单位","单用量","材质"}
Dim Cols2() As String = {"订单号","客户名称","产品代码","子件代码","子件名称","子件规格","下单日期","订单交期","订单数量","生产数量","单位","单用量","材质"}
For Each dr1 As DataRow In DataTables("MRP查询").Select("[生产数量] > 0")
Dim dr2 As DataRow = DataTables("MRP物料需求").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
加好友 
发短信
Post By：2021/5/28 14:02:00 [只看该作者]
