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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 组合框日期格式

共有3784人关注过本帖树形打印复制链接主题：组合框日期格式

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

组合框日期格式 发帖心情

Post By：2013/12/19 16:33:00 [只看该作者]

组合框引用日期列数据,用以下代码:

Dim cmb As WinForm.ComboBox
cmb = e.form.Controls("日期")
cmb.ComboList = DataTables("记录").GetComboListString("日期")

得到的日期格式含有时间部分,不希望有时间部分,以上代码如何补充?

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/19 16:39:00 [只看该作者]

利用 GetValues 获取到不重复日期列表,然后再循环拼接一个 "|" 即可拼接过程中 format一下格式为 yyyy-MM-dd http://www.foxtable.com/help/topics/2747.htm

lsy

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

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2013/12/19 16:51:00 [只看该作者]

Dim str As String = DataTables("订单").GetComboListString("日期")
Dim strs As String
For Each s As String In str.Split("|")
strs + = Format(Cdate(s.Split(" ")(0)),"yyyy-MM-dd") & "|"
Next
e.Sender.ComboList = strs.Trim("|")

这样才简单些：

Dim str As String = DataTables("订单").GetComboListString("日期")
Dim strs As String
For Each s As String In str.Split("|")
strs + = Format(Cdate(s),"yyyy-MM-dd") & "|"
Next
e.Sender.ComboList = strs.Trim("|")

[此贴子已经被作者于2013-12-19 16:59:46编辑过]

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2013/12/19 16:55:00 [只看该作者]

不清楚怎么用,改成:

cmb.ComboList = DataTables("记录").GetComboListString("日期 | yyyy-MM-dd ")

和:

cmb.ComboList = DataTables("记录").GetComboListString("日期" | yyyy-MM-dd )

都不通.

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/19 17:00:00 [只看该作者]

你到底有没看我2楼的解释,和3楼LSY的代码的?

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2013/12/19 17:06:00 [只看该作者]

以下是引用lsy在2013-12-19 16:51:00的发言：
Dim str As String = DataTables("订单").GetComboListString("日期")
Dim strs As String
For Each s As String In str.Split("|")
strs + = Format(Cdate(s.Split(" ")(0)),"yyyy-MM-dd") & "|"
Next
e.Sender.ComboList = strs.Trim("|")

我是在窗口设置一个组合框来选择日期,用上面的代码还是报借.

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/12/19 17:07:00 [只看该作者]

上例子.

有点甜

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

加好友

发短信

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

Post By：2013/12/19 20:04:00 [只看该作者]

楼主，要灵活变通一下哦，表名得改一下吧？控件得改一下吧？

Dim cmb As WinForm.ComboBox

cmb = e.form.Controls("日期")

Dim str As String = DataTables("记录").GetComboListString("日期")

Dim strs As String

For Each s As String In str.Split("|")

strs + = Format(Cdate(s.Split(" ")(0)),"yyyy-MM-dd") & "|"

cmb.ComboList = strs.Trim("|")

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2013/12/20 10:51:00 [只看该作者]

以下是引用有点甜在2013-12-19 20:04:00的发言：
楼主，要灵活变通一下哦，表名得改一下吧？控件得改一下吧？

Dim cmb As WinForm.ComboBox

cmb = e.form.Controls("日期")

Dim str As String = DataTables("记录").GetComboListString("日期")

Dim strs As String

For Each s As String In str.Split("|")

strs + = Format(Cdate(s.Split(" ")(0)),"yyyy-MM-dd") & "|"

cmb.ComboList = strs.Trim("|")

哦,都晕头转向了:)

石四

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

加好友

发短信

等级：四尾狐帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00

Post By：2013/12/20 13:03:00 [只看该作者]

筛选按钮代码:

Dim Filter As String
With e.Form.Controls("Button2")
    If .Value IsNot Nothing Then
        Filter = "日期 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("记录").Filter = Filter
End If

报错,提示:

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

是不是因为日期格式改变的原因?

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

总数 13 1 2 下一页

主题：组合框日期格式