今天写了一些代码在事件编程（DataColChanged）：在[检验结果]表中，新增一行记录，输入批号，同时检测表[入库标签]中，是否有相同批号，如果没有就判断“检测结果”列中输入的信息，如果是“合格”或“让步接受”，就自动在表[入库标签]中增加一行，同时把批号、日期、检验结果等值都带到该表中，否则表[入库标签]没有操作。
但好像有些问题，可以自动增行，但判断条件上，不论“检测结果”列中输入什么，表[入库标签]都会自动增加行。
请老师看看，谢谢！
Select Case e.DataCol.name
Case "检验结果"
Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.OldValue & "'")
Dim hg As DataRow=DataTables("检验结果").Find("检验结果='合格'")
Dim rb As DataRow=DataTables("检验结果").Find("检验结果='让步接受'")
If dr Is Nothing Then
If hg IsNot Nothing Then
ElseIf rb IsNot Nothing Then
dr = DataTables("入库标签").AddNew()
dr("批号") = e.DataRow("批号")
dr("检验结果") = e.DataRow("检验结果")
dr("检验日期") = e.DataRow("检验日期")
Else
dr("批号") = e.DataRow("批号")
End If
End If
Case "检验日期","检验结果"
Dim dr As DataRow = DataTables("入库标签").Find("批号 = '" & e.DataRow("批号") & "'")
If dr IsNot Nothing Then
dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
End If
End Select
截图不能上传。
加好友 
发短信
Post By：2016/1/7 11:51:00 [只看该作者]
