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

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