沥青表DataColChanged事件
If e.DataCol.name = "溶解度试验" Then
If e.DataRow("溶解度试验") = "/" Then
e.DataRow("执行天数") = 3
ElseIf e.DataRow("溶解度试验") > "" Then
e.DataRow("执行天数") = 5
Else
e.DataRow("执行天数") = Nothing
End If
ElseIf e.DataCol.name = "试样名称" Then
If e.DataRow.IsNull("试样名称") Then
e.DataRow("规格") = Nothing
e.DataRow("数量") = Nothing
Else
Dim dr As DataRow = DataTables("总表").Find("试样类型='沥青试验' and 试样名称='" & e.DataRow("试样名称") & "'")
If dr IsNot Nothing Then
e.DataRow("规格") = dr("规格")
e.DataRow("数量") = dr("数量")
End If
End If
End If
加好友 
发短信
Post By：2017/11/7 21:21:00 [显示全部帖子]
