- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 合计行颜色 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60066)
-- 发布时间：2014/11/17 18:34:00
-- 合计行颜色
Dim
g As New CrossTableBuilder("统计表1", DataTables("订单"))g.HGroups.AddDef("产品")
g.VGroups.AddDef("客户")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.VerticalProportion = True
g.Build()
MainTable = Tables("统计表1")
合计行为红底黑字
-- 发布时间：2014/11/17 19:11:00
--
Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("客户")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.VerticalProportion = True
g.Build()
Dim t As Table = Tables("统计表1")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
cs1.BackColor = Color.Red
For j As Integer = 1 To t.Cols.Count
t.Grid.SetCellStyle(t.Rows.Count, j, cs1)
Next
MainTable = t
-- 发布时间：2014/11/17 20:22:00
--
谢谢
-- 发布时间：2014/11/17 23:04:00
--
Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("客户")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.VerticalProportion = True
g.Build()
Tables("窗口1_Table1").DataSource = g.BuildDataSource()
如果是：窗口1_Table1，
合计行为红底黑字
-- 发布时间：2014/11/18 9:27:00
--
Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))
g.HGroups.AddDef("产品")
g.VGroups.AddDef("客户")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.VerticalProportion = True
Tables("窗口1_Table1").DataSource = g.BuildDataSource()
Dim t As Table = Tables("窗口1_Table1")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
cs1.BackColor = Color.Red
For j As Integer = 1 To t.Cols.Count
t.Grid.SetCellStyle(t.Rows.Count, j, cs1)
Next
-- 发布时间：2014/11/18 11:44:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理1.zip |
有点甜老师，帮我看看
-- 发布时间：2014/11/18 11:58:00
--
Dim sql As String = "Select 收款人,缴费项目, Count(学生姓名) As 发票数,Sum(缴费金额) As 收费金额 From {缴费信息} GROUP BY 收款人,缴费项目"
Dim b As New CrossTableBuilder("统计表1",sql, "数据库")
b.HGroups.AddDef("收款人")
b.VGroups.AddDef("缴费项目") \'添加产品列用于垂直分组
b.Totals.AddDef("发票数")
b.Totals.AddDef("收费金额")
b.HorizontalTotal= True
b.VerticalTotal = True
b.Build()
Tables("窗口1_Table1").DataSource = b.BuildDataSource()
Dim t As Table = Tables("窗口1_Table1")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
cs1.BackColor = Color.Red
For j As Integer = 1 To t.Cols.Count
t.Grid.SetCellStyle(t.Rows.Count+t.HeaderRows-1, j, cs1)
Next
-- 发布时间：2014/11/18 12:08:00
--
谢谢有点甜老师