会计凭证的设计和录入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 会计凭证的设计和录入

共有14203人关注过本帖树形打印复制链接主题：会计凭证的设计和录入

采菊东篱下

小大 171楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/6/18 15:47:00 [只看该作者]

财务数据源表已经设了双击单元格禁止进入编辑，直接打开窗口，这样写也设了双击单元格禁止进入编辑，也没有自动填充数据。

e.Cancel = True

Dim dt As Table = Tables("转账凭证_Table1")

With dt

If e.Col.Name = "贷方金额" Then

If .Compute("sum(借方金额)") > .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey")) Then

e.Row("贷方金额") = .Compute("sum(借方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"))

End If

ElseIf e.Col.Name = "借方金额" Then

If .Compute("sum(借方金额)") < .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey")) Then

e.Row("借方金额") = .Compute("sum(贷方金额)") - .Compute("sum(借方金额)","[_SortKey] < " & e.Row("_SortKey"))

End If

End With

[此贴子已经被作者于2021/6/18 16:45:35编辑过]

有点蓝

小大 172楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/18 15:50:00 [只看该作者]

Compute统计的是当前窗口表里_SortKey值小于当前行的其它行的值

1、不包括没有加载的数据

2、双击第一行应该不会有效果，应该没有被第一行值小的行了

采菊东篱下

小大 173楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/6/18 16:08:00 [只看该作者]

它不是第一行，是第二行，可就是没有填充数据。

有点蓝

小大 174楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/18 16:17:00 [只看该作者]

说明表格数据不符合指定条件

If e.Col.Name = "贷方金额" Then

If .Compute("sum(借方金额)") > .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey")) Then

e.Row("贷方金额") = .Compute("sum(借方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"))

End If

ElseIf e.Col.Name = "借方金额" Then

If .Compute("sum(借方金额)") < .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey")) Then

e.Row("借方金额") = .Compute("sum(贷方金额)") - .Compute("sum(借方金额)","[_SortKey] < " & e.Row("_SortKey"))

End If

采菊东篱下

小大 175楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/6/18 16:32:00 [只看该作者]

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

改为这样，双击借方第二行的金额也不行

e.Cancel = True

Dim dt As Table = Tables("转账凭证_Table1")

With dt

If e.Col.Name = "贷方金额" Then

If .Compute("sum(借方金额)","[会计科目] Is not Null") > .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey")) Then

e.Row("贷方金额") = .Compute("sum(借方金额)","[会计科目] Is not Null") - .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"))

End If

ElseIf e.Col.Name = "借方金额" Then

If .Compute("sum(借方金额)","[会计科目] Is not Null") < .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey")) Then

e.Row("借方金额") = .Compute("sum(贷方金额)","[会计科目] Is not Null") - .Compute("sum(借方金额)","[_SortKey] < " & e.Row("_SortKey"))

End If

End With

采菊东篱下

小大 176楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/6/18 16:34:00 [只看该作者]

哦，看出问题了，代码不对。

有点蓝

小大 177楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/18 16:38:00 [只看该作者]

双击"贷方金额"

采菊东篱下

小大 178楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/6/18 16:43:00 [只看该作者]

这问题搞掂

shenyl0211

小大 179楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00

Post By：2021/6/18 18:17:00 [只看该作者]

楼主，你就是个十足的垃圾

采菊东篱下

小大 180楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：八尾狐帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00

Post By：2021/6/18 20:36:00 [只看该作者]

我已经把代码完善为当会计科目或摘要不为空，点任意行自动填充借贷方合计差额，使到借贷金额合计相等，但合计不会自动更新，点击合计数据才会更新。

[此贴子已经被作者于2021/6/18 20:49:25编辑过]

下一主题 >> << 上一主题

总数 184 1.. 上一页 10 11 12 13 14 15 16 17 18 19 下一页

主题：会计凭证的设计和录入