主题：[求助]这段代码执行速度很慢，请老师们指点

要把疾病编码前三位字符C00 - D48 的相应列“疾病分类”自动改为“肿瘤”，代码如下，但是多次出现死机，单行改变内容能实现，请指点！

If e.DataCol.name = "疾病编码" Then
    Dim Products As List(Of String)
    Products = DataTables("ICD10").GetValues("疾病编码")
    For Each Product As String In Products
        If Product.IndexOf(".") <> -1 Then
            Product = Product.Remove(Product.IndexOf("."))
        End If
        If Product = "C00" Then
            Continue For
        ElseIf Product = "D48" Then
            Exit For
        End If
        e.DataRow("疾病分类") = "肿瘤"
    Next
End If

 

此主题相关图片如下：捕获.png

你的图跟你前面的表达有点不配套呢，

DataTables("ICD10") 是当前表吗？

图片上有表名是“ICD10”，是当前表，第一列是“疾病编码”，最后一列是“疾病分类”。

这样写代码怎么可能高效呢？ 具体说说你想实现什么目的吧。

俺觉得还是上个文件得到的回复会高效些

马上就上个例子！

ICD-10的疾病编码原来是个excel文件，你为什么不在excel里替换后再导入，这样多好。

你是医院里干嘛的？可以交流一下。

实现目的：按疾病的不同编码段，比如A00 - C35之间的归类为“传染性疾病”，C36 - D48之间的归类为“肿瘤”等等！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目4.rar

写代码可以实现，但比较麻烦。我是在excel中，新增一列“疾病种类”，编好后在导入。因为这种东西在foxtable中只用一次，以后基本就这样了。就如使用拼音简码一样。因为我也弄个这个东东！