- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教一下窗口中的COMBOBOX设定月份的问题； (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64209)
-- 发布时间：2015/2/7 11:31:00
-- 请教一下窗口中的COMBOBOX设定月份的问题；
比如说表A中日期列是具体到天的，如2015-1-2；2015-1-3；等；
在窗口中设置COMboBox控件中怎么让它显示为2015-1；2015-2；等；
如果在ENTER事件中这样写：
Dim dt As WinForm.ComboBox = e.Form.Controls("ComboBox")
dt.ComboList = DataTables("A").GetComboListString("日期")
这得到的结果是2015-1-2；2015-1-3；
[此贴子已经被作者于2015-2-7 11:31:56编辑过]
-- 发布时间：2015/2/7 11:40:00
--
DataFormat 事件
e.value=Format(e.value,"yyyy-MM")
-- 发布时间：2015/2/7 11:52:00
--
老师，不行啊；还是显示2015-1-2
-- 发布时间：2015/2/7 11:59:00
--
不会啊.上例子
-- 发布时间：2015/2/7 13:34:00
--
老师请看，我是希望在窗口的控件可以选择2015-1；2015-2等，然后窗口中的表能显示对应1月或2月的数据；
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:生产记录.table |
-- 发布时间：2015/2/7 13:59:00
--
例子COMboBox 什么都没
-- 发布时间：2015/2/7 14:06:00
--
噢，我是做例子忘记了，在ENTER事件：Dim dt As WinForm.ComboBox = e.Form.Controls("ComboBox")
dt.ComboList = DataTables("生产明细记录").GetComboListString("日期")；
DataFormat 事件： e.value=Format(e.value,"yyyy-MM") 但是没那个效果出来； |
[此贴子已经被作者于2015-2-7 14:06:16编辑过]
-- 发布时间：2015/2/7 14:07:00
--
Dim dt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
dt.ComboList = DataTables("生产记录明细").SQLGetComboListString("format(日期,\'yyyy-MM\')")
-- 发布时间：2015/2/7 14:20:00
--
谢谢了
-- 发布时间：2015/2/7 14:36:00
--
老师，再请教一下，我在SelectedIndexChanged事件中写下列代码：
*****
Dim t As Table = e.Form.Controls("Table1").Table
Dim g As New GroupTableBuilder("统计表1", DataTables("生产记录明细"))
g.Groups.AddDef("机器号")
g.Groups.AddDef("日期", "月")
g.Totals.AddDef("重量")
Dim dt As WinForm.ComboBox = e.Form.Controls("ComboBox1")
g.Filter = "日期 = \'" & dt.text & "\'"
e.Form.Controls("Table1").Table.DataSource = g.BuildDataSource
t.DataSource = g.BuildDataSource
t.Cols("重量").GrandTotal = True \'指定要合计的列
t.GrandTotal = True \'显示合计模式
*****
为什么只能得出一部分的结果？就是选2015-1时没数据，选2015-2时数据只有一部分，数据不准；