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