DataColChanged事件
If e.DataCol.Name = "钢印号" Then
Dim fdr As DataRow = DataTables("备案登记表").Find("钢印号 = '" & e.datarow("钢印号") & "'")
If fdr IsNot Nothing Then
fdr("是否备案") = true
Else
fdr("是否备案") = False
End If