If e.DataCol.Name = "宽" OrElse e.DataCol.Name = "高" Then '发生变化的是宽吗? If e.DataRow.isnull("宽")=False AndAlso e.DataRow.isnull("高")=False Then '在镀锌阀成本参数找出宽 Dim dr As DataRow dr = DataTables("镀锌阀成本参数").Find("宽 = " & "'" & e.DataRow("宽") & "' and 高='" & e.DataRow("高") & "'") If dr IsNot Nothing '如果找到, 则设置各列内容 e.DataRow("阀体单价")= dr("价格") Else '否则清除阀体单价的内容 e.DataRow("阀体单价") = Nothing End If End If End If
|