Select Case e.DataCol.Name
Case "中康编码","成品编码","业务员"
Dim dr As DataRow = e.DataRow
Dim pr As DataRow
If dr.IsNull("中康编码") OrElse dr.IsNull("成品编码") OrElse dr.IsNull("业务员") Then
dr("单价美金_不含税") = Nothing
dr("单价美金_含税") = Nothing
dr("税点") = Nothing
Else
Dim filter As String
filter = "中康编码= '" & dr("中康编码") & "' And 成品编码 = '" & dr("成品编码") & "' and 业务员 = '" & dr("业务员") & "'"
pr = DataTables("销售报价").SQLFind(filter)
If pr IsNot Nothing Then
dr("单价美金_不含税") = pr("单价美金_不含税")
dr("单价美金_含税") = pr("单价美金_含税")
End If
End If
End Select
加好友 
发短信
Post By：2018/12/10 20:51:00 [显示全部帖子]
