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


  共有13979人关注过本帖树形打印复制链接

主题：会计凭证的设计和录入
美女呀，离线，留言给我吧！
采菊东篱下
 小大  91楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/16 22:01:00 [显示全部帖子]

现在是双击表打开窗口，日期依然能改，修改后凭证号也相应变了，窗口中的Validating事件代码根本不起作用。
[此贴子已经被作者于2021/6/17 0:30:21编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  92楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/16 22:23:00 [显示全部帖子]

应该判断修改前的凭证号是否存在，修改后的凭证号财务数据源表肯定不存在，因为那是重新生成的，未保存，因此窗口中的Validating事件代码根本不起作用，如何设置允许已保存的单据修改当月日期，凭证号不变，禁止跨月自动修改已保存的凭证号，允许手动修改凭证号。
[此贴子已经被作者于2021/6/17 14:25:17编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  93楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/17 14:18:00 [显示全部帖子]

以下是引用shenyl0211在2021/6/17 13:25:00的发言：
看了蓝版在4楼的回复和后面一连串的耐心解答，觉得蓝版态度特好；再看楼主在5楼的冒火（说话真难听、真恶心，且纯粹是楼主自己眼瞎造成的。过后还不删除5楼的内容和道歉），真不知道是谁在求谁？

我没有任何挑唆的意思，只是希望大家平心静气、互相尊重，特别是要尊重版主，帮你解决问题了就应该说声谢谢，即使解决不了，人家也是尽力思考过了，也应该说声谢谢。
1、因为狐表只是一个开发软件，不是现成的管理系统，不能求全责备。即使是一个管理系统，也不可能面面俱到、没有差错。windows不是一个最好的例子吗？你们开发的管理系统不也是最好的例子吗？
2、虽然有些解答是必须的，但有些解答不是必须的，是用户自己的问题。
3、用户来自各行各业、需求各异，而版主缺少太多的行业知识，如果用户不能详细描述或上传项目，版主是很难答复的。即使上传项目，如果版主没有足够的时间理解、消化，同样难以回答。而版主确实太缺乏时间了，因为他面对的用户太多，而有不少用户的惰性太大。
4、按照版主对某些用户付出的服务，狐表的价格对他们来说是严重偏低的，如果此时还要版主有问题必解决，确实是有些过分的，特别是那些自己懒得看帮助、懒得在论坛搜索的用户，更过分。
5、还有不少注册用户是没花一分钱的，因为他们在用试用版，而版主却同样要解答他们的提问，真是太难为版主了。

不想跟你多言，你一边去。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  94楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/17 16:10:00 [显示全部帖子]

把自动生成凭证号的条件改为增加新的窗口时执行，一切问题解决，谢谢指出增加这个标签控件。
[此贴子已经被作者于2021/6/17 20:16:04编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  95楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/18 11:49:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：061802.png
图片点击可在新窗口打开查看
我想实现当借方金额合计数大于贷方金额合计数，双击会计科目不为空的贷方金额为空的单元格，自动填充借方金额合计与贷方金额的差额；同理当贷方金额合计数大于借方金额合计数，双击会计科目不为空的借方金额为空的单元格，自动填充借方金额合计与贷方金额的差额，我这样写报错：

图片点击可在新窗口打开查看此主题相关图片如下：061801.png
图片点击可在新窗口打开查看

Dim dt As DataTable = DataTables("转账凭证_Table1")
With dt
    If .Compute("sum(借方金额)") > .Compute("sum(贷方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") Then
        e.DataRow("贷方金额") = .Compute("sum(借方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc")
    ElseIf .Compute("sum(借方金额)") < .Compute("sum(贷方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") Then
        e.DataRow("借方金额") = .Compute("sum(贷方金额)") - .Compute("sum(借方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc")
    End If
End With
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  96楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/18 14:09:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片061803.png
图片点击可在新窗口打开查看
我一开始是用ROW的报错后改为了datarow，忘了DoubleClick事件只能用row,这样写一样报错：
Dim dt As Table = Tables("转账凭证_Table1")
With dt
    If .Compute("sum(借方金额)") > .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc") Then
        e.Row("贷方金额") = .Compute("sum(借方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc")
    ElseIf .Compute("sum(借方金额)") < .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc") Then
        e.Row("借方金额") = .Compute("sum(贷方金额)") - .Compute("sum(借方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc")
    End If
End With
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/18 14:10:00 [显示全部帖子]

哦，在先判断列名，改一下。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  98楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/18 14:14:00 [显示全部帖子]

改为这样还是有上面的报错。
Dim dt As Table = Tables("转账凭证_Table1")
With dt
    If e.Col.Name = "借方金额" Then
        If .Compute("sum(借方金额)") > .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc") Then
            e.Row("贷方金额") = .Compute("sum(借方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc")
        End If
    ElseIf e.Col.Name = "贷方金额" Then
        If .Compute("sum(借方金额)") < .Compute("sum(贷方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc") Then
            e.Row("借方金额") = .Compute("sum(贷方金额)") - .Compute("sum(借方金额)","[_SortKey] < " & e.Row("_SortKey"), "[_SortKey] Desc")
        End If
    End If
End With

[此贴子已经被作者于2021/6/18 14:15:26编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/18 14:23:00 [显示全部帖子]

对啊，昨晚写Compute时知道不要后面的排序，改的时候又直接复制find的条件过来了，不要排序不报错了。
[此贴子已经被作者于2021/6/18 14:30:36编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  100楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1881 积分：10368 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2021/6/18 14:29:00 [显示全部帖子]

改为这样：
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 If
End With
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询