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

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

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

有点蓝

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

加好友

发短信

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

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

Validating事件只有在当前控件里编辑数据才会触发。其它控件给这个控件赋值是不会触发的，应该到日期控件的Validating事件或者valuechanged处理

有点蓝

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

加好友

发短信

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

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

双击事件可用的e参数：http://www.foxtable.com/webhelp/topics/1499.htm

e.row，不是e.datarow

有点蓝

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

加好友

发短信

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

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

Compute的语法也看一看，Compute只有2个参数

语法：

Compute(Expression, Filter)

Expression: 要计算的表达式，使用聚合函数进行统计。
Filter：可选参数，用于设置计算条件，请参考表达式的运算符和函数和条件表达式。

上面代码原来应该是用Find的，改为其它方法的时候注意一个参数的个数

有点蓝

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

加好友

发短信

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

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

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

有点蓝

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

加好友

发短信

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

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

DoubleClick

双击单元格后执行。

e参数属性：

Table: 引发事件的表
Row: 引发事件的行
Col: 引发事件的列
Cancel: 逻辑型，设置为True，将禁止双击单元格进入编辑状态。
Button: 引发事件的鼠标按键名称，左键为"Left"，右键为"Right"。

示例一

如果希望双击单元格后，能够自动打开某窗口，可以将DoubleClick事件代码设为：

e.Cancel = True '禁止进入编辑状态
Forms("窗口1").Open()

有点蓝

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

加好友

发短信

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

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

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

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

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

有点蓝

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

加好友

发短信

等级：超级版主帖子：107230 积分：545405 威望：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

有点蓝

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

加好友

发短信

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

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

双击"贷方金额"

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

总数 69 上一页 1 2 3 4 5 6 7

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