Select Case e.DataCol.Name
Case "订单号","全款号"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("订单号") OrElse dr.IsNull("全款号") Then
dr("发货店铺编号") = Nothing
dr("发货店铺") = Nothing
Else
Dim filter As String
filter = "订单号 = \'" & dr("订单号") & "\' And 销售货号 = \'" & dr("全款号") & "0\'"
pr = DataTables("新零售X2订单明细表").Find(filter)
If pr IsNot Nothing Then
dr("发货店铺编号") = pr("发货店铺代码")
dr("发货店铺") = pr("发货店铺名称")
End If
End If
End Select