高级筛选里面的时间格式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 高级筛选里面的时间格式

共有3829人关注过本帖树形打印复制链接主题：高级筛选里面的时间格式

susu312

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/8/13 16:52:00 [显示全部帖子]

以下是引用有点甜在2018/8/13 16:13:00的发言：

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

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

susu312

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/8/13 17:09:00 [显示全部帖子]

以下是引用有点甜在2018/8/13 16:13:00的发言：

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

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

susu312

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/8/13 17:19:00 [显示全部帖子]

以下是引用有点甜在2018/8/13 16:56:00的发言：
上传具体实例测试。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目22.table

老师，在这里例子的窗口1里面，您只测试出生年月，当选好后，鼠标还在值那一列上时，点击查询就会卡死

susu312

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/8/13 17:50:00 [显示全部帖子]

以下是引用有点甜在2018/8/13 17:32:00的发言：

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、你每次上传的例子都不是对应的例子，请上传正确实例。

感谢老师，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目23.table

这次应该对了吧，这个里面在窗口1里面，第一行选择出生年月，设置值，第二行同样，第三行再选择出生年月，值对应的输入框就不是时间输入格式了？

susu312

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00

Post By：2018/8/13 20:06:00 [显示全部帖子]

以下是引用有点甜在2018/8/13 19:01:00的发言：

改成

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