主题：高级筛选里面的时间格式

这个意思？

Dim t As Table = Tables("表B")
For i As Integer = t.Rows.Count -1 To 0 Step -1
    t.Rows(i).delete
Next
t.AddNew

您太厉害了，

删除按钮代码：

If Tables("筛选").Current.Index = 0 Then
      Dim t As Table = Tables("筛选")
      For i As Integer = t.Rows.Count -1 To 0 Step -1
         t.Rows(i).delete
      Next
      t.AddNew
Else
     Tables("筛选").Current.Delete
End If

我是这么写的，然后测试没问题。感谢老师！

查询按钮代码

Dim filter As String = ""
Dim mathType As String
Dim t As Table = Tables("person")
For Each r As Row In Tables("筛选").Rows
    If r("字段")="" Then Continue For
    Select Case r("操作符")
            Case "1"
                mathType = " = "
            Case "2"
                mathType = " > "
            Case "3"
                mathType = " < "
            Case "4"
                mathType = "<>"
            Case "5"
                mathType = " <= "
            Case "6"
                mathType = " >= "
    End Select

   If t.cols(r("字段")).IsDate Then
         Dim dvar As Date
         If Date.TryParse(r("值"), dvar) Then
               filter =filter & " " & r("字段") & " " & mathType & " " & "#" & format(dvar,"yyyy-MM-dd") & "#" & " " & r("逻辑")
         Else
               MessageBox.Show("非法日期")
         End If
    Else  
         filter= filter & " " & r("字段") & " " & mathType & " " & "'" & r("值") & "'" & " " & r("逻辑")
    End If
Next
If filter > "" Then
    If filter.EndsWith("And") Then
        filter = filter.SubString(0,filter.Length-3)
    ElseIf filter.EndsWith("Or") Then
        filter = filter.SubString(0,filter.Length-2)
    End If
End If
MessageBox.Show(filter)

老师，您帮我看看红色代码那里有啥问题么，我点击查询就卡住了？

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

老师，我可不可以让这个表，每次打开都是这样显示这么多列，操作那里是等于，逻辑那里是并且，字段都摆在那里，用户只需要在值那边选择就可以了，

对应的例子、输入数据，发上来测试。

1、例子和你代码不对应；

2、修改表名、列名后测试，代码没问题。

3、你可以循环所有列，增加行赋值，如

Dim t As Table = Tables("表A")
For Each c As Col In t.Cols
    Dim r As Row = Tables("表B").addnew
    r("字段") = c.name
    r("比较") = 1
Next

老师，对应着了，但是每次那个值列中输入时间，读取为空，并且项目卡住？

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

就是刚才那个例子，第一个时间显示出来了，正常，我输入第二次后，项目又卡住了

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

老师， 我知道问题所在了，您看第一行，我如果鼠标依然停留在值那里，就开始点查询，项目就卡死，，请问这个应该如何防范