标题: 大佬帮忙转换下代码~ [打印本页] 作者: arnonho 时间: 2022-6-6 12:14 标题: 大佬帮忙转换下代码~ If e.DataCol.Name = "客户" OrElse e.DataCol.Name = "商品名称" Then '如果内容发生变动的是品名列
If e.DataRow.isnull("客户") OrElse e.DataRow.isnull("商品名称") Then '如果新值是空白,也就是品名列的内容为空
e.DataRow("单价") = Nothing '那么清空此行单价列的内容
Else
Dim dr As DataRow
'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("客户").Find("[客户名称] = '" & e.DataRow("客户") & "'")
If dr IsNot Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing
Dim dr2 As DataRow = DataTables("商品").Find("[商品名称] = '" & e.DataRow("商品名称") & "'")
If dr2 IsNot Nothing Then
e.DataRow("单价") = dr2(dr("售价级别"))
End If
End If
End If
End If
If e.DataCol.Name = "商品名称" Then
If e.DataRow.isnull("商品名称") Then
e.DataRow("单价") = Nothing
Else
Dim dr2 As DataRow = DataTables("商品").Find("[商品名称] = '" & e.DataRow("商品名称") & "'")
If dr2 IsNot Nothing Then
e.DataRow("规格") = dr2("规格")
End If
End If
End If