除了使用表达式，计算外，还有其他方法实现计算没？谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 除了使用表达式，计算外，还有其他方法实现计算没？谢谢

共有16643人关注过本帖树形打印复制链接主题：除了使用表达式，计算外，还有其他方法实现计算没？谢谢

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/8/18 11:08:00 [显示全部帖子]

1、将两表的序号列列类型改成一致，如字符型。
审核表DataColChanged事件代码：

if e.DataCol.Name = "审核" Then
    Dim dr As DataRow = DataTables("调资基础数据").Find("[序号] = '" & e.DataRow("序号") & "'")
    If dr IsNot Nothing Then
        Dim i As Integer = Tables("调资基础数据").FindRow(dr)
        If i >= 0 Then
            Tables("调资基础数据").Rows(i)("审核结果") = e.DataRow("审核")
        End If
    End If
End If

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/8/18 11:14:00 [显示全部帖子]

2、在外部表增加合计列，删除原有的表达式合计列。
人事工资管理表DataColChanged事件代码：

Select Case e.Datacol.Name
Case "基础工资","级别工资","职务工资"
e.DataRow("合计") = e.DataRow("基础工资")+e.DataRow("级别工资")+e.DataRow("职务工资")
End Select

czy

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

加好友

发短信

等级：超级版主帖子：6318 积分：33951 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/8/18 12:09:00 [显示全部帖子]

以下是引用杨浩在2009-8-18 11:35:00的发言：
1、审核表审核信息没有自动转到调资基础数据表的审核结果内？

[此贴子已经被作者于2009-8-18 11:35:09编辑过]

别乱说话。
在审核表重置一下，焦点要在审核列。
将调资基础数据表的行拉高了看看，至于为什么会这样，原因自己去找一找。

[此贴子已经被作者于2009-8-18 12:10:26编辑过]

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

主题：除了使用表达式，计算外，还有其他方法实现计算没？谢谢