- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 除了使用表达式，计算外，还有其他方法实现计算没？谢谢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3890)
-- 发布时间：2009/8/17 22:24:00
-- 除了使用表达式，计算外，还有其他方法实现计算没？谢谢
除了使用表达式，计算外，还有其他方法实现计算没？谢谢
-- 发布时间：2009/8/17 22:46:00
--
可以使用事件代码计算啊，你是什么意思？
-- 发布时间：2009/8/17 22:56:00
--
1、如何将“审核”表中的<审核>列的数据,自动转入到“调资基础数据”表中<审核结果>列的相应行内？谢谢
2、“人事工资管理”表的合计我是通过表达式实现的，保存不到外挂数据库中，如何通过其他方法实现保存到外挂数据库中？谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:rsgzglxt.rar |
[此贴子已经被作者于2009-8-17 23:01:06编辑过]
-- 发布时间：2009/8/18 9:29:00
--
还有就是如何切换表！！！
-- 发布时间：2009/8/18 10:44:00
--
版主帮忙看看，谢谢
SOS
-- 发布时间：2009/8/18 11:01:00
--
Maintable = Tables("订单")
表切换可以使用这个不？谢谢
-- 发布时间：2009/8/18 11:04:00
--
以下是引用杨浩在2009-8-18 11:01:00的发言：
Maintable = Tables("订单")
表切换可以使用这个不？谢谢
Maintable = Tables("订单")
表切换可以使用这个不？谢谢
可以
-- 发布时间：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
-- 发布时间：2009/8/18 11:14:00
--
2、在外部表增加合计列，删除原有的表达式合计列。
人事工资管理表DataColChanged事件代码：
Select Case e.Datacol.Name
Case "基础工资","级别工资","职务工资"
e.DataRow("合计") = e.DataRow("基础工资")+e.DataRow("级别工资")+e.DataRow("职务工资")
End Select
-- 发布时间：2009/8/18 11:35:00
--
1、审核表审核信息没有自动转到调资基础数据表的审核结果内？
2、在人事工资表中选择副科级工资不变？
谢谢
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:rsgzglxt.rar |
[此贴子已经被作者于2009-8-18 11:35:09编辑过]