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

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