- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]多数据写入，无反应，死机原因 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170591)
-- 发布时间：2021/7/31 15:07:00
-- [求助]多数据写入，无反应，死机原因
各位老师，下午好！
在我的数据表中，有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
-- 发布时间：2021/7/31 15:34:00
--
急，请老师指导！！
-- 发布时间：2021/7/31 15:35:00
--
先看看：http://www.foxtable.com/webhelp/topics/1522.htm
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
Case "jici1","jici2"
If e.DataRow.IsNull("jici1") AndAlso e.DataRow.IsNull("jici2") Then
e.DataRow("jiezQK") = "未接种"
Else
If e.DataRow("jici2") = "②"
e.DataRow(jiezQK") ="完成接种"
ElseIf e.DataRow("jici1") = "①"
e.DataRow(jiezQK") ="仅打一剂次"
End If
End If
End Select
-- 发布时间：2021/7/31 15:49:00
--
谢谢“蓝”老师！
我现在的问题不是做每行的数据，是其他数据都已经存在了，只需根据已有的数据列“jizi1”和“jizi12”在"jiezQK"列中填写“完成接种”、“未接种”、“仅打一剂”。
-- 发布时间：2021/7/31 16:10:00
--
3楼模式自己在加上查找功能
-- 发布时间：2021/7/31 16:15:00
--
还麻烦老师帮我一下，现在是在统计疫情接种情况，非常急，待今天过了，我再慢慢理解，谢谢“蓝”老师了。
-- 发布时间：2021/7/31 16:19:00
--
没看懂数据到底怎么样的，请上传实例
-- 发布时间：2021/7/31 16:20:00
--
试试ReplaceFor或直接用SQL语句
-- 发布时间：2021/7/31 16:25:00
--
文件已上传，请老师帮忙，急！！！
-- 发布时间：2021/7/31 16:32:00
--
文件大，限止了上传文件。
此主题相关图片如下：1627720219(1).png
只能截图了。谢谢各位老师。