主题：[求助] 副本表中使用内置输入器没有反应

  过滤窗口_Table1_Click

If E.Col.Name = "比较关系" OrElse E.Col.Name = "数值" Then
    Dim tb As Table = e.Table
    Dim r As Row = e.Row
    If r.IsNull("名称") = False Then
        Dim dt As DataTable = DataTables(Vars("DtName"))
        Dim tb1 As Table = Tables(Vars("DtName"))
        'MessageBox.Show(r("名称") & "|" & tb1.Cols(r("名称")).DataCol.datatype.name)
        Select tb1.Cols(r("名称")).DataCol.datatype.name
            Case "string"
                '"等于|不等于|大于|小于|大于等于|小于等于|包含|不包含|是|不是"
                tb.Cols("比较关系").ComboList = "等于|不等于|包含|不包含"
                tb.Cols("数值").ComboList = "null" & "|" & dt.SQLGetComboListString(r("名称"))
            Case "DateTime"
                MessageBox.Show("DateTime")
                tb.Cols("比较关系").ComboList = "等于|不等于|大于|小于|大于等于|小于等于"
                tb.Cols("数值").UsetBuildInEditor = True

            Case "Boolean"
                tb.Cols("比较关系").ComboList = "是|不是"
                tb.Cols("数值").ComboList = "True|false" 'dt.SQLGetComboListString(r("名称"))
            Case "Byte","Short","Integer","Long","Single","Double","Decimal"
                tb.Cols("比较关系").ComboList = "等于|不等于|大于|小于|大于等于|小于等于"
                tb.Cols("数值").ComboList =  dt.SQLGetComboListString(r("名称"))
        End Select
       
    End If
End If

         Case "DateTime"
                MessageBox.Show("DateTime")
                tb.Cols("比较关系").ComboList = "等于|不等于|大于|小于|大于等于|小于等于"
                tb.Cols("数值").UsetBuildInEditor = True

能否做到，如果是DateTime 类型的时候，临时更改他的列类型，如果是String时又将类型更改为String这样

老师，另外一个问题，以上之前在绑定表的时候可以，现在用SQL筛选后，下拉功能就没有出现了。为什么？

你的sql筛选指什么？变成了sqlTable表或者sqlQuery表？你要开启全局表事件

http://www.foxtable.com/webhelp/scr/0671.htm

重启后解决！！！

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

如上图，为什么增加行是在上面的，而不是底下，副 本表类型是SQLTable

'------------生成表---------------
Dim cmd As new SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "sele ct * from {过滤条件} where " & Vars("Ss") & " And 方案名称 = '默认方案'"
dt = cmd.ExecuteReader
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.DataSource = dt
tb.SetColVisibleWidth("逻辑|64|左|33|名称|125|比较关系|91|数值|202|右|44")
tb.AllowEdit = True

'~~~~~~~~~~~~~~~~~~~~增加行~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim r As Row = tb1.AddNew
r("用户") = _UserName
r("表名") = Vars("DtName")
r("方案名称") = tr.SelectedNode.Name
r("逻辑") = "并且

1、你是否对表格进行了排序？

2、增加行都会在最下面一行，除非你设置了排序sort。

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

没有排序，

但比较奇怪的是，第二次和第三次增加的都会在按顺序排下来，应该是没将原来的资料计算！