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

老师，见图，在文本框录入“-”时，报错；直接在单元格录入没有问题。

TextChanged 代码：

Dim dr1 = DataTables("数据表").Find("[案号] = '" & e.Form.Controls("ComboBox1").Text & "'")
If dr1 IsNot Nothing Then
dr1("合并审理") = e.Form.Controls("TextBox1").text
e.Form.Controls("TextBox2").text = dr1("案件数量")
End If

图片点击可在新窗口打开查看此主题相关图片如下：image 22.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2018-8-8测试合并审理.table

datacolchanged，改成

For k As Integer = ii To val(jj)

甜老师好！

我在文本框的TextChanged代码，想作为[案号]列的筛选条件。

比如：(2018)鲁01行初330、333、356-358、赔初11-12号。

上述录入完毕后，会将"(2018)鲁01行初3"、"(2018)鲁01行初33"......同时筛选出来。

怎样避免这种情况？

谢谢！

-------------------------------------------------------------------------

'''

Dim str As String = e.Form.Controls("TextBox2").text.replace("\", "、").replace(",", "、")

If str <> "" Then

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

For Each r As Row In Tables("批量增加_table1")

Tables("批量增加_table1").Filter = "标注 = True"

Else

Return

End If

回复楼上，我测试没问题，请上传具体实例测试。

甜老师，你先复制“(2018)鲁01行初330号”进文本框，然后在“...330”后面依次录入“、”，“358”...

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2018-9-26测试案号筛选.table

'''
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报错