不知能否实现日期的这种下拉显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不知能否实现日期的这种下拉显示

共有1998人关注过本帖树形打印复制链接主题：不知能否实现日期的这种下拉显示

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/22 12:07:00 [显示全部帖子]

如果是access、内部数据源，这样写

控件.ComboList = DataTables("订单").SQLGetComboListString("format(日期列, 'yyyy-MM')")

查询的时候，截取年、月，然后合成条件，如

Dim ary() as string = 值.split("-")

Dim d As Date = New Date(ary(0), ary(1), 1)

Tables("表A").Filter = "日期列 >= #" & d & "# and 日期列 < #" & d.AddMonths(1) & "#"

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/22 14:28:00 [显示全部帖子]

以下是引用有点辣在2017/12/22 13:09:00的发言：

老师代码是不是有问题？

我照着抄，下拉不出值，把SQLGetComboListString改为 GetComboListString，提示无法找到列 format(出库日期。

必须要用 SQLGetComboListString，不能用 GetComboListString。

否则，你就必须循环每一行，转换成年月的形式，再赋值给下拉。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/22 14:49:00 [显示全部帖子]

以下是引用有点辣在2017/12/22 14:33:00的发言：
用SQLGetComboListString不出结果，是sql数据源

sqlserver数据源这样写

控件.ComboList = DataTables("订单").SQLGetComboListString("CONVERT(VARCHAR(7),日期列,120)")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/12/22 15:45:00 [显示全部帖子]

还是写代码吧

Dim ls As new List(Of String)
For Each dr As DataRow In DataTables("订单").Select("", "出库日期")
    Dim str As String = format(dr("出库日期"), "yyyy-MM")
    If ls.Contains(str) = False Then
        ls.add(str)
    End If
Next
msgbox(String.Join("|", ls.ToArray))

[此贴子已经被作者于2017/12/22 15:44:50编辑过]

下一主题 >> << 上一主题

主题：不知能否实现日期的这种下拉显示