Foxtable(狐表)用户栏目专家坐堂 → 增加表标题


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

主题:增加表标题

帅哥哟,离线,有人找我吗?
rgbjwjb
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
增加表标题  发帖心情 Post By:2021/3/10 14:46:00 [只看该作者]

我想给统计表加个标题,运行后,没有报错,也没统计结果,代码如下:

Dim ndxz As WinForm.ComboBox = e.Form.Controls("年度选择")
            Dim yfxz As WinForm.ComboBox = e.Form.Controls("月份选择")
            If ndxz.value > 0 And yfxz.value > 0 Then
                Dim dt1 As New Date(ndxz.value, yfxz.value, 1)
                Dim dt2 As New Date(ndxz.value, yfxz.value, Date.DaysInMonth(ndxz.value,yfxz.value)) '获取该月的最后一天
                Dim g As New CrossTableBuilder("统计表1", DataTables("派工单明细表"))
                Dim dt As fxDataSource
                g.HGroups.AddDef("村民组")
                g.HGroups.AddDef("户主姓名")
                g.HGroups.AddDef("派工日期", DateGroupEnum.None)
                g.VGroups.AddDef("工程名称")
                g.Totals.AddDef("工时", "工时")
                g.Totals.AddDef("工价", "工价")
                g.OrderByTotal = True
                g.HorizontalTotal = True
                g.VerticalTotal = True
                g.Decimals = 2
                g.Subtotal = True
                g.Filter = "[派工日期] >= #" & dt1 & "# And [派工日期] <= #" & dt2 & "#"
                g.Caption ="江安镇徐柴村" & ndxz.value & "年" & yfxz.value & "月公用工统计表"
                g.Build()
                dt = g.BuildDataSource()
                Tables("公用工查询_Table1").DataSource = dt
            End If
不知如何修改?请指教,谢谢!


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/10 14:57:00 [只看该作者]

Dim g As New CrossTableBuilder("江安镇徐柴村" & ndxz.value & "年" & yfxz.value & "月公用工统计表", DataTables("派工单明细表"))

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2021/3/11 17:10:00 [只看该作者]

我的表达可能错了,我不是想将“统计表1”的名称改为“江安镇徐柴村**年**月公用工统计表”,而是想在生成的“统计表1”中的第一行加上上面这一行(江安镇徐柴村**年**月公用工统计表)请指教,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/11 17:14:00 [只看该作者]

tables("统计表1").rows(0)("某某列") = 江安镇徐柴村" & ndxz.value & "年" & yfxz.value & "月公用工统计表"

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2021/3/11 20:57:00 [只看该作者]

 Dim ndxz As WinForm.ComboBox = e.Form.Controls("年度选择")
            Dim yfxz As WinForm.ComboBox = e.Form.Controls("月份选择")
            If ndxz.value > 0 And yfxz.value > 0 Then
                Dim dt1 As New Date(ndxz.value, yfxz.value, 1)
                Dim dt2 As New Date(ndxz.value, yfxz.value, Date.DaysInMonth(ndxz.value,yfxz.value)) '获取该月的最后一天
                Dim g As New CrossTableBuilder("统计表1", DataTables("派工单明细表"))                
                Dim dt As fxDataSource
                g.HGroups.AddDef("户主姓名")
                g.HGroups.AddDef("村民组")
                g.HGroups.AddDef("派工日期", DateGroupEnum.None)
                g.VGroups.AddDef("工程名称")
                g.Totals.AddDef("工时", "工时")
                g.Totals.AddDef("工价", "工价")
                g.HorizontalTotal = True
                g.VerticalTotal = True
                g.Decimals = 2
                g.Subtotal = True
                g.Filter = "[派工日期] >= #" & dt1 & "# And [派工日期] <= #" & dt2 & "#"
                g.Build()                
                dt = g.BuildDataSource()
                Tables("公用工查询_Table1").DataSource = dt
                Tables("公用工查询_Table1").rows(0)("村民组") = "'江安镇徐柴村' & ndxz.value & "'年'" & yfxz.value & "'月公用工统计表'"
            End If
我加了代码后没报错,也没有插入表头
请指教,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2021/3/11 21:04:00 [只看该作者]

代码在“公用工查询”窗体的“月份选择”控件的selctedindexchanged事件中


 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/11 21:17:00 [只看该作者]

不知道到底想干嘛,画图说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
rgbjwjb
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:637 积分:6461 威望:0 精华:0 注册:2016/12/27 21:05:00
  发帖心情 Post By:2021/3/12 8:57:00 [只看该作者]

我就是想在生成的统计表上加个表头


图片点击可在新窗口打开查看此主题相关图片如下:设置需求.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/12 9:07:00 [只看该作者]

建议还不如在窗口表上方放一个标签控件显示这种标题,把标签控件设置为有边框即可。

如果一定要在表格里做要改每个列的标题,如:http://www.foxtable.com/webhelp/topics/1275.htm

Tables("公用工查询_Table1").DataSource = dt
dim dt as datatable = dataTables("公用工查询_Table1")
dim s as string = "江安镇徐柴村 & ndxz.value & "年" & yfxz.value & "月公用工统计表_"
for each dc as datacol in dt.datacols
if dc.caption > "" then
dc.caption = s & dc.caption
else
dc.caption = s & dc.name
end if
next
dt.BuildHeader()

 回到顶部