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

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

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

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/18 15:20:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:转账凭证.foxdb

双击财务数据源表的转字5号凭证，打开窗口后删除借方金额中的2700，鼠标随离点一下其他地方，让光标离开这个单元格，然后再双击这个单元格，并无自动填充借贷金额合计差额，使到借、贷合计金额相等，而是光标进入了单元格图片点击可在新窗口打开查看

。

采菊东篱下

小大 112楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/18 16:08:00 [显示全部帖子]

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

采菊东篱下

小大 114楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/18 16:34:00 [显示全部帖子]

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

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/18 16:43:00 [显示全部帖子]

这问题搞掂

采菊东篱下

小大 117楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/18 22:07:00 [显示全部帖子]

已经解决。

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/19 13:02:00 [显示全部帖子]

有种人专门来找事的。

[此贴子已经被作者于2021/6/19 13:06:22编辑过]

采菊东篱下

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

加好友

发短信

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

Post By：2021/6/19 13:05:00 [显示全部帖子]

以下是引用shenyl0211在2021/6/18 18:17:00的发言：
楼主，你就是个十足的垃圾

昨晚粗略地看了一下你建议论坛收费发贴，典型的发钱寒、算死草、食古不化的老儿不！你是永久高级版开发用户，我同样是企业高级版永久开发用户，前年4月份就早早付费了，我花钱一边学一边做，且当跟版主学习，那点权利都没有？你2012年已经注册长驻论坛，9年了怎么还发贴问版主？不是早该得道成精远离繁嚣，潜心造学问，不用问人了？瞧你花大量时间精力在论坛搜刮别人的东西，没有独到、精益的业务水平、能力的熊样！也配在论坛指手划脚、说三道四，你有水平就应把精力和时间花在研发项目、开创业务上，而不是象婆娘般在此胡搅蛮缠、绕舌喷人，说了不想跟你多言，要你一边去，你还三分颜色上大红，不死不休，你算那根蒜，又凭什么身份跟我说话！别只许州官放火不许百姓点灯！在此大放厥词！

[此贴子已经被作者于2021/6/20 19:27:31编辑过]

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

总数 111 1.. 上一页 3 4 5 6 7 8 9 10 11 12

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