- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教狐狸爸爸几个问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42059)
-- 发布时间：2013/11/2 21:38:00
-- [求助]请教狐狸爸爸几个问题
请教以下几个问题： 因易表用了多年，想借用易表的快捷键。 1、重复填充Ctrl+D，在菜单的Click事件上放置了Syscmd.Edit.RepeatFill()，在用户菜单下，鼠标点击菜单按钮正常， 快捷键Ctrl+D不起作用。类似的还有显示全部快捷键Ctrl+Q、筛选等于快捷键Ctrl+E、筛选不等于快捷键Ctrl+U乍设置？ 2、论坛上已经问过，我也有类似的需要，在窗口的NumericComboBox1上输入 “1” ，按统计按钮，就能在销售统计表中统计出一月份客户销售产品的数量和金额，并将控件上的数据写入销售统计的”统计月“内。这是易表的习惯，虽然狐表有更强大的统计功能，我们还是需要易表的习惯，请狐狸爸爸帮助。 3、例子上的材料入库单,中间的材料名称等内容来源于入库明细中同一入库单编号，一般六行以下，如何写代码，类似于票据rsqg。 4、狐表中有没有易表中的追加表功能，能将表结构、代码全部复制过来。
[此贴子已经被作者于2013-11-2 21:49:03编辑过]
-- 发布时间：2013/11/2 21:51:00
--
1、如果你要使用快捷键，需要在菜单按钮那里设置对应的快捷键才行哦。
2、这个功能，在foxtable里是需要你写简单代码的。具体参考 统计和查询 一章
3、这个问题，你得学习一下狐表的设计再写代码，是最基本的应用
4、有，复制表，但代码不复制。http://www.foxtable.com/help/topics/0192.htm
5、按下F1键，看一下详细的帮助，都有讲到的。
-- 发布时间：2013/11/2 21:51:00
-- [求助]
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:几个问题.zip |
[此贴子已经被作者于2013-11-2 21:52:22编辑过]
-- 发布时间：2013/11/2 21:55:00
--
谢谢甜老师帮助！我已设置了，没弄好，请求帮助。
-- 发布时间：2013/11/2 22:12:00
--
第一个问题：你的Ctrl+D可能被占用了，试试Ctrl+9
第二个问题：代码这样写
DataTables("销售统计").DeleteFor("[产品] Is not null")
Dim tj As New Filler
tj.SourceTable = DataTables("订单")
tj.SourceCols = "客户,产品"
tj.DataTable = DataTables("销售统计")
tj.DataCols = "客户,产品"
Dim d As Date = new Date(1999,e.Form.Controls("NumericComboBox1").value, 1)
tj.Filter="日期>=#" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
tj.Fill()
DataTables("销售统计").DeleteFor("[产品] Is null")
Dim t As Table = Tables("销售统计")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = True
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "客户"
g.TotalOn = "数量,金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "数量,金额"
g.Caption = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
第三个问题：你添满六行的label，命名要有规则，比如 label_1_bh label_1_mc
然后可以遍历子表的行，一个一个把值设置进去
比如 e.controls("label_" & i & "_bh") = r("编号")
[此贴子已经被作者于2013-11-2 22:13:45编辑过]
-- 发布时间：2013/11/2 22:33:00
--
谢谢甜老师，每次解答都很彻底，为我解决了不少问题。第一个问题重复填充 改快捷键Ctrl+9，ok. 第二个问题，统计功能实现了， 控件上的数据还是未写入销售统计的”统计月“内；
第三个问题按甜老师的方法再试试。
-- 发布时间：2013/11/2 22:37:00
--
第二个问题，改一下代码就行了。
DataTables("销售统计").DeleteFor("[产品] Is not null")
Dim tj As New Filler
tj.SourceTable = DataTables("订单")
tj.SourceCols = "客户,产品,数量,月"
tj.DataTable = DataTables("销售统计")
tj.DataCols = "客户,产品,数量,统计月"
Dim d As Date = new Date(1999,e.Form.Controls("NumericComboBox1").value, 1)
tj.Filter="日期>=#" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
tj.Fill()
DataTables("销售统计").DeleteFor("[产品] Is null")
-- 发布时间：2013/11/2 22:44:00
--
第二个问题解决了，谢谢甜老师！！！