If e.DataCol.name = "材料编号" OrElse e.DataCol.name = "定额用量" OrElse e.DataCol.name = "配合量" OrElse e.DataCol.name = "市场价" Then
If dr1("材料编号") IsNot Nothing Then
Dim dr2 As DataRow = DataTables("材料库").Find("[材料编号] = '" & dr1("材料编号") & "'")
If dr2("材料编号") IsNot Nothing Then
dr1("材料名称") = dr2("材料名称")
dr1("单位") = dr2("单位")
dr1("单价") = dr2("单价")
dr1("主材") = dr2("主材")
dr1("RCJ") = dr2("RCJ")
dr1("砼") = dr2("砼")
If pr("人工") > 0 And dr1("单位") = "工日" Then ''计算工日市场价
dr1("市场价") = dr1("单价") * pr("人工")
End If
''If dr2("市场价") IsNot Nothing Then
''dr1("市场价") = dr2("市场价")
''End If
..........
End If
End If
End If
加入红色代码,执行完 dr1("砼") = dr2("砼") 程序没有错误提示,自动关闭。
红色代码应该怎样修改?
谢谢!