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

要把疾病编码前三位字符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

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

马上就上个例子！

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

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

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

请楼上指点 每一行的代码都不一样，如何替换？

谢谢指点，明白了！

我是想进行分类统计分析用。

楼上的思路很好 ！感谢。