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

PrepareEdit事件中的代码我不明，在这写代码意思是如果有下级科目，所有上级科目都不允许手工输入，由代码自动计算，你这样写变成一级科目没取消输入，最后级科不能输入了。

Select Case e.Col.Name

Case "借或贷","初始数量","初始余额"

If e.Row.IsNull("科目代码") = False Then

If e.Table.Compute("count(_Identify)","科目代码 like '" & e.Row("科目代码") & "%' and len(科目代码)=" & e.Row("科目代码").length + 4) > 0

e.Cancel = True

End If

End Select

[此贴子已经被作者于2021/5/21 17:16:52编辑过]

这个代码是有下级的就不能输入，没有的就可以输入。如果觉得不符合要求，就改为合适自己的用法。

感觉第一种方法在资产表上出现资产总计行，我可以在关闭窗口时删除这行，因为还有负债、所有者权益、损益表，同理再弄那么多表有点累赘，其实资产、负债、损益表是简单的统计，损益表还要在最后一行添加一行计算负债、所有者权益、损益表三者相加的总计，怎引用已计算出来的合计结果，我也看了很久帮助，它不象excel简单直接单元格数值相加，flash引用小计行单元格数值有点复杂，我这公式还是三连加，我至今还没理顺头绪。

[此贴子已经被作者于2021/5/21 20:27:29编辑过]

到Q群里咨询一下其它用户是怎么做的，有几个也是做会计开发财务软件的

群就算了，我加ＱＱ、微信都全不说话的，手机也禁陌生人信息，基本不跟人多言。

看懂这段代码的意思了

Select Case e.Col.Name

Case "借或贷","初始数量","初始余额"

If e.Row.IsNull("科目代码") = False Then

If e.Table.Compute("count(_Identify)","科目代码 like '" & e.Row("科目代码") & "%' and len(科目代码) =" & e.Row("科目代码").length + 4) > 0

e.Cancel = True

End If

End Select

添加的最后一行并没有实现合并单元格

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

Tables("初始数据_Table1").AllowEdit = True

With DataTables("初始数据_Table1")

If .Find("科目代码 = '资产总计'") Is Nothing Then

Dim rt1 As DataRow = .AddNew()

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

rt1("初始余额") = .Compute("Sum(初始余额)", "[科目名称] <> '累计折旧' and len(科目代码) = 4") - (.Compute("Sum(初始余额)","科目名称 = '累计折旧'"))

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

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

End If

End With

With Tables("初始数据_Table1")

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

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

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

.Grid.MergedRanges.Add(rng1)

End With

[此贴子已经被作者于2021/5/21 23:01:02编辑过]

知道怎改了，合并成功了。

把负债、所有者权益、损益三表的合计数相加，红色代码报错：

Tables("初始数据_Table4").Fill("Select * Fr om {损益}",False)

Tables("初始数据_Table4").AllowEdit = True

With DataTables("初始数据_Table4")

If .Find("科目代码 = '损益总计'") Is Nothing Then

Dim rt4 As DataRow = .AddNew()

rt4("科目代码") = "损益总计"

rt4("初始余额") = .Compute("Sum(初始余额)", "[科目名称] <> '累计折旧' and len(科目代码) = 4") - (.Compute("Sum(初始余额)","科目名称 = '累计折旧'"))

End If

If .Find("科目代码 = '负债和所有者权益(或股东权益)总计'") Is Nothing Then

Dim rt5 As DataRow = .AddNew()

rt5("科目代码") = "负债和所有者权益(或股东权益)总计"

rt5("初始余额") = Tables("初始数据_Table2").Select(Tables("初始数据_Table2").Rows.count - 1,5) + Tables("初始数据_Table3").Select(Tables("初始数据_Table3").Rows.count - 1,5) + Tables("初始数据_Table4").Select(Tables("初始数据_Table4").Rows.count - 1,5)

End If

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

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

End With

With Tables("初始数据_Table4")

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

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

Dim rng4 As C1.Win.C1FlexGrid.CellRange = .Grid.GetCellRange(.Rows.count - 1, 1, .Rows.count - 1, 2)

.Grid.MergedRanges.Add(rng4)

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

Dim rng5 As C1.Win.C1FlexGrid.CellRange = .Grid.GetCellRange(.Rows.count, 1, .Rows.count, 2)

.Grid.MergedRanges.Add(rng5)