各位老师，下午好！在我的数据表中，有50000多条数据，其中在列jici1中有数据为“①”,也有空白，jici2中有数据“②”，也有空白。想对有“②”的行，在jiezQK列填写“完成接种”，在仅有“①”的行的jiezQK列填写“仅接种一针”，对既没①和②的行，填写“未接种”。我有表的DataColChangedg事件中代码如下，但运行时总是死机，无反应，请老师指导！
Dim dr3 As DataRow = DataTables("ryhzTJB").Find("jici1 = '①' and jici2 = '②'")
If dr3 IsNot Nothing '如果找到,则设置各列内容
e.DataRow("jiezQK")= "完成接种"
End If
Dim dr4 As DataRow = DataTables("ryhzTJB").Find("jici1 = '①' and jici2 is null")
If dr4 IsNot Nothing '如果找到,则设置各列内容
e.DataRow("jiezQK")= "仅打一剂次"
End If
Dim dr5 As DataRow = DataTables("ryhzTJB").Find("jici1 is Null and jici2 is null")
If dr5 IsNot Nothing '如果找到,则设置各列内容
e.DataRow("jiezQK")= "未接种"
End If
加好友 
发短信
Post By：2021/7/31 15:07:00 [只看该作者]
