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

不同类型，new不同的控件

e.Table.grid.cols("内容").Editor = new windows.forms.TextBox

上传具体实例说明

1、

e.DataRow("操作符") = "1"
e.DataRow("逻辑") = "并且"

2、设置editor请在prepareEdit事件设置

这个意思？

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

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

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、修改代码

If e.Col.name = "值" Then
    Dim t As Table = Tables("表A")
    If e.Row("字段") > "" AndAlso t.Cols.Contains(e.Row("字段")) Then
        If t.cols(e.Row("字段")).IsDate Then
            If e.Table.grid.cols("值").Editor IsNot Nothing AndAlso typeof e.Table.grid.cols("值").Editor Is windows.forms.DateTimePicker = False Then
                e.Table.grid.cols("值").Editor = new windows.forms.DateTimePicker
            End If
        Else
            e.Table.grid.cols("值").Editor = Nothing
            e.Table.Cols("值").ComboList = t.DataTable.GetComboListString(e.Row("字段"))
        End If
    Else
        e.Table.grid.cols("值").Editor = Nothing
        e.Table.Cols("值").ComboList = Nothing
    End If
End If

2、你每次上传的例子都不是对应的例子，请上传正确实例。

改成

If e.Col.name = "值" Then
    Dim t As Table = Tables("表A")
    If e.Row("字段") > "" AndAlso t.Cols.Contains(e.Row("字段")) Then
        If t.cols(e.Row("字段")).IsDate Then
             If e.Table.grid.cols("值").Editor Is Nothing OrElse typeof e.Table.grid.cols("值").Editor Is windows.forms.DateTimePicker = False Then
                e.Table.grid.cols("值").Editor = new windows.forms.DateTimePicker
            End If
        Else
            e.Table.grid.cols("值").Editor = Nothing
            e.Table.Cols("值").ComboList = t.DataTable.GetComboListString(e.Row("字段"))
        End If
    Else
        e.Table.grid.cols("值").Editor = Nothing
        e.Table.Cols("值").ComboList = Nothing
    End If
End If

用变量保存，如 vars("filter") = 你得到的条件