主题：请教二个易表中的函数在狐表中如何写代码

只能改成数字列，编码计算了

先学习,谢谢好版!

1、好象应该这样，按钮代码：

Dim r As DataRow
Dim ColNames() As String = {"一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月"}
For Each ColName As string In ColNames
    For Each dr As DataRow In DataTables("个人分月工资表").DataRows
        r = DataTables("工资库").Find("[工号]  = '" & dr("工号") & "'And [月份] = '" & ColName & "'")
        if r IsNot Nothing Then
            If dr.IsNull("工号") Then
                dr(ColName) = Nothing
            Else
                dr(ColName) = r("实发工资")
            End If
        End If
    Next
Next

外出的,才回来,先谢谢曹版了,我试试

曹版的代码好用,我本来就是想放在按钮中的.好版的第一个问题,不行,我看全年表各月的数据都加上的是二三月份的数据了,还有那个计税工资的,我可能没说清楚,不是简单的引用基数列的内容,而是要用原表达式公式减去另表的内容

老姐，你的代码有些乱，我看了理不清思路。

下面两段代码是矛盾的。

dim x as Integer = e.datarow("计税工资")
dim y as double
if x > 100000 then
y=x*0.45-15375
……
end if
e.datarow("个税")=math.round(y,2)

你只要看前一段就成了,呵呵

依据这个要求，先做个按钮代码看看对不对？

Dim js As Integer
For Each dr As DataRow In DataTables("工资表").DataRows
    If dr.IsNull("工号") Then
        dr("计税工资") = Nothing
    Else
        js = DataTables("缴费基数").Datarows(0)("缴费基数")
        dr("计税工资") = dr("应付工资")-dr("扣养老")-dr("扣医疗")-dr("扣失业")-dr("扣其它")-js
    End If
Next

这个也可以了，是否还能放在事件中呢？

可以的，如DataColChanged事件：

Dim js As Integer
Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "应付工资" OrElse e.DataCol.Name = "扣养老" OrElse e.DataCol.Name = "扣医疗" OrElse e.DataCol.Name = "扣失业" OrElse e.DataCol.Name = "其它" Then
    js = DataTables("缴费基数").Datarows(0)("缴费基数")
    dr("计税工资") = dr("应付工资")-dr("扣养老")-dr("扣医疗")-dr("扣失业")-dr("扣其它")-js
End If