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


  共有3839人关注过本帖树形打印复制链接

主题：高级筛选里面的时间格式
美女呀，离线，留言给我吧！
susu312
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | 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里面，您只测试出生年月，当选好后 ，鼠标还在值那一列上时，点击查询就会卡死
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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、你每次上传的例子都不是对应的例子，请上传正确实例。
 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | 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里面，第一行选择出生年月，设置值，第二行同样，第三行再选择出生年月，值对应的输入框就不是时间输入格式了？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

 

 

老师，在窗口1删除所有，从第一行开始选  性别  等于 男  并且 ，点击查询，项目卡死

 

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目23.table
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 21:15:00 [只看该作者]

去掉PrepareEdit事件代码

BeforeSelChange事件
If e.Table.Cols(e.NewRange.ColSel).name = "值" Then
    Dim t As Table = Tables("表A")
    Dim r As Row = e.Table.Rows(e.NewRange.Rowsel)
    If r.IsNull("字段") = False AndAlso t.Cols.Contains(r("字段")) Then
        If t.cols(r("字段")).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(r("字段"))
        End If
    Else
        e.Table.grid.cols("值").Editor = Nothing
        e.Table.Cols("值").ComboList = Nothing
    End If
End If
 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		  发帖心情 Post By：2018/8/13 22:10:00 [只看该作者]


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

老师，上图是一个查询窗口，用户每次打开就是那几列都显示好，用户只需要选值就好了？这个如何实现呀？就是字段都填好了，用户不能再选了，用户可以选择比较、值、逻辑 ，但是比较和逻辑默认是填好的？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107135 积分：544918 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 22:53:00 [只看该作者]

锁定列，最基本的用法，帮助搜“AllowEdit”。不要只顾着开发，花时间沉淀一下，看看帮助

 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		  发帖心情 Post By：2018/8/13 23:11:00 [只看该作者]

以下是引用有点蓝在2018/8/13 22:53:00的发言：
锁定列，最基本的用法，帮助搜“AllowEdit”。不要只顾着开


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

 

老师，我通过这个窗口获得的条件，如何传给统计窗口？

统计窗口最下面有一个打开这个窗口的按钮可以打开这个窗口？
 回到顶部
美女呀，离线，留言给我吧！
susu312
 小大  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：997 积分：6752 威望：0 精华：0 注册：2018/6/8 16:17:00 		  发帖心情 Post By：2018/8/13 23:24:00 [只看该作者]

以下是引用有点蓝在2018/8/13 22:53:00的发言：
锁定列，最基本的用法，帮助搜“AllowEdit”。不要只顾着开发，花时间沉淀一下，看看帮助

老师，我特别想问下，列的ComboList可以多选么？我看帮助貌似没说
 回到顶部
总数 34 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 7 次数据查询