初始数的科目汇总 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：qq图片20210520144832.png

　　初始数是手工输入的，要求逐级汇总科目初始金额，科目代码由逐级添加4位数区别科目级数，最后添加一行合并科目代码列与科目名称列单元格，在初始余额列汇总所有一级科目初始余额，我这样写，红色标注代码报错：

代码发不上来，只能用wps上传。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:科目汇总代码.rar

[此贴子已经被作者于2021/5/20 15:30:59编辑过]

代码放在什么事件里的？

了解一下什么是e参数：http://www.foxtable.com/webhelp/topics/0604.htm

不同事件有不同的e参数，不要随便用

在Tables("初始数据_Table1")的AfterLoad事件写入下面的代码，在窗口的Table1中加载资产表：

Tables("初始数据_Table1").Fill("Select * Fro m {资产}",False)

With Tables("初始数据_Table1")

.SetColVisibleWidth("科目代码|110|科目名称|130|借或贷|50|初始数量|70|初始余额|70")

End With

在Tables("初始数据_Table1")的DataColChanged事件写入下面的代码能保存，但并没添加行：

With DataTables("初始数据_Table1")

Dim km As String = e.DataRow("科目代码")

For i1 As Integer = (km.Length / 4) - 1 To 1

Dim c1 As Integer = 4 * i1

Dim dr1 As DataRow = .find("[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "%' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "%'")

If (e.DataCol.Name = "科目代码" OrElse e.DataCol.Name = "科目名称") AndAlso "[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "%' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "%'" Then

e.Cancel = True '取消编辑

Else

dr1("借或贷") = "借"

dr1("初始余额") = .Compute("Sum(初始余额)", "[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "%' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "%'")

End If

Dim rt1 As DataRow = .AddNew()

rt1("科目代码") = "资产总计"

rt1("借或贷") = "借"

rt1("初始余额") = .Compute("Sum(初始余额)", "[科目代码] = '" & e.DataRow("科目代码").SubString(0,4) & "%'")

.DataCols("初始数量").SetFormat("#,###.##")

.DataCols("初始余额").SetFormat("#,###.##")

End With

在Tables("初始数据_Table1")的DrawCell事件中写入下面代码报错：

Dim zc As WinForm.Table = e.Form.Controls("Table1")

Dim tb1 As Table = zc.Table

tb1.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom

Dim rng As C1.Win.C1FlexGrid.CellRange = tb1.Grid.GetCellRange(tb1.Row.count -1, 0, tb1.Row.count -1, 1)

tb1.Grid.MergedRanges.Add(rng)

[此贴子已经被作者于2021/5/20 16:53:19编辑过]

第1、3段代码可以放到窗口afterload事件，但是不能放到表事件处理。

第2段代码感觉就是，找来几条衣服，剪碎，随便找些碎片用胶布粘成一件新的衣服。就是随便找来一些代码堆到一起，至于可以干什么，看不懂

此主题相关图片如下：qq图片20210520172053.png

这段代码写在AfterLoad事件中报错

Dim zc As WinForm.Table = e.Form.Controls("Table1")

Dim tb1 As Table = zc.Table

tb1.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom

Dim rng As C1.Win.C1FlexGrid.CellRange = tb1.Grid.GetCellRange(tb1.Row.count -1, 0, tb1.Row.count -1, 1)

tb1.Grid.MergedRanges.Add(rng)

在Tables("初始数据_Table1")的DataColChanged事件写入下面的代码能保存，但并没添加行：

With DataTables("初始数据_Table1") '逐级统计初始余额　

Dim km As String = e.DataRow("科目代码")

For i1 As Integer = (km.Length / 4) - 1 To 1

Dim c1 As Integer = 4 * i1

Dim dr1 As DataRow = .find("[科目代码] Like '" & e.DataRow("科目代码").SubString(0,c1) & "%' And [科目代码] <> '" & e.DataRow("科目代码").SubString(0,c1) & "%'")

e.Cancel = True '取消编辑

Else

dr1("借或贷") = "借"

End If

Dim rt1 As DataRow = .AddNew() '添加一行用来统计一级科目余额，它是汇总行，故科目代码这行的单元格自动显示为资产总计，因为用统计方式写这行，初始数据不能手工输入，且数据不是直接统计，而是只统计一级科目，所以不能用统计模式，只能手工编写代码。

rt1("科目代码") = "资产总计"

rt1("借或贷") = "借"

rt1("初始余额") = .Compute("Sum(初始余额)", "[科目代码] = '" & e.DataRow("科目代码").SubString(0,4) & "%'") '统计一级科目余额

.DataCols("初始数量").SetFormat("#,###.##")　'千位分隔符，保留2位小数

.DataCols("初始余额").SetFormat("#,###.##")

End With

这段代码写在AfterLoad事件中报错

Dim zc As WinForm.Table = e.Form.Controls("Table1")

Dim tb1 As Table = zc.Table

tb1.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom

Dim rng As C1.Win.C1FlexGrid.CellRange = tb1.Grid.GetCellRange(tb1.Row.count -1, 0, tb1.Row.count -1, 1)

tb1.Grid.MergedRanges.Add(rng)

这段代码是合并Tables("初始数据_Table1")新添一行的科目代码、科目名称列的单元格的，Grid只对Table有效，错在哪我无从入手，合并单元格的内容我了一天帮助了，不想做到表的打印设显示中，效果直接在table中显示，我看了好久了，不知怎么实现。

你给我看的连接不明什么作用。

Dim zc As WinForm.Table = e.Form.Controls("Table1")

Dim tb1 As Table = zc.Table

tb1.Grid.AllowMerging = C1.Win.C1FlexGrid.AllowMergingEnum.Custom

Dim rng As C1.Win.C1FlexGrid.CellRange = tb1.Grid.GetCellRange(tb1.Rows.count -1, 0, tb1.Rows.count -1, 1)

tb1.Grid.MergedRanges.Add(rng)

这段代码不报错了。

主题：初始数的科目汇总