[求助]文本框TextChanged报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'''
Dim str As String = e.Form.Controls("TextBox1").text.replace("\", "、").replace(",", "、")
If str <> "" Then
    Tables("批量增加_table1").DataTable.ReplaceFor("标注", False)
    Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(\([0-9]+\)[鲁0-9]+)|(行初[0-9\-]+)|(赔初[0-9\-]+)|(行终[0-9\-]+)|([0-9\-]+)")
    Dim qz As String = ""
    Dim lx As String = ""
    For i As Integer = 0 To mc.count-1
        Dim s As String = mc(i).value
        If i = 0 Then
            qz = s
        Else
            If s.StartsWith("行初") Then
                lx = "行初"
                s = s.replace("行初", "")
            ElseIf s.StartsWith("赔初") Then
                lx = "行赔初"
                s = s.replace("赔初", "")
            ElseIf s.StartsWith("行终") Then
                lx = "行终"
                s = s.replace("行终", "")
            End If
            Dim ii = 0
            Dim jj = 0
            If s.Indexof("-") >= 0 Then
                ii = s.split("-")(0)
                jj = s.split("-")(1)
            Else
                ii = s
                jj = s
            End If
            For k As Integer = ii To val(jj)
                'msgbox(qz & lx & k & "号")
                Dim dr As DataRow
                dr = DataTables("数据表").Find("[案号] = '" & qz & lx & k & "号" & "'")
                If dr IsNot Nothing Then
                    dr("标注") = True
                End If
            Next
        End If
    Next

    Tables("批量增加_table1").Filter = "标注 = True"
Else
    Return
End If

主题：[求助]文本框TextChanged报错