第一段
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "重量","单价","折扣"
If dr.IsNull("重量") Then
dr("金额") = Nothing
Else
dr("金额") = dr("重量") * dr("单价") * dr("折扣")
End If
End Select
第二段
If e.DataCol.Name = "货物名称" Then
If e.NewValue Is Nothing Then
e.DataRow("单价2") = Nothing
Else
Dim dr As DataRow
dr = DataTables("货物名称").Find("[货物名称] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
e.DataRow("单价2") = dr("单价2")
End If
End If
End If
If e.DataCol.Name = "公司名称" Then
If e.NewValue Is Nothing Then
e.DataRow("起运地") = Nothing
e.DataRow("仓库") = Nothing
e.DataRow("折扣") = Nothing
Else
Dim dr As DataRow
dr = DataTables("客户").Find("[公司名称] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
e.DataRow("起运地") = dr("起运地")
e.DataRow("仓库") = dr("仓库")
e.DataRow("折扣") = dr("折扣")
End If
End If
End If
老师帮帮忙，上边两段代码 分别都能单独运行，可是合在一起就不能运行了，这怎么弄？ 我需要合在一个表里运行
加好友 
发短信
Post By：2018/6/4 13:25:00 [只看该作者]
