销售接单表想直接引用发货表的部分列,麻烦老师看下我写的代码错在那里Dim Cols1() As String = {"车型", "车辆来源", "凭证号", "发货日期"}
Dim Cols2() As String = {"车型", "车辆来源", "凭证号", "发货日期"}
Dim dr As DataRow
dr = DataTables("发货表").Find("[接单单号] = '" & e.NewValue & "'")
Dim Filter As String = "[接单单号] = '" & e.DataRow("接单单号") & "'"
Dim drs As List(Of DataRow) = DataTables("销售接单").Select(Filter)
For Each dr As DataRow In drs
For i As Integer = 0 To Cols1.Length - 1
dr(Cols2(i)) = drs(Cols1(i))
Next
Next