If e.DataRow("员工属性") = "工勤"
Then
Dim dj As Integer = fdr2("工勤薪级")
+ iif(e.DataRow("工龄")>1,e.DataRow("工龄"),0)
Dim fdr3 As DataRow = dt.find("薪级 = \'" &
dj & "\'")
e.DataRow("现薪级工资") = fdr3("工勤薪金")
e.DataRow("薪级档次") = dj
Else
Dim dj As Integer = fdr2("专技薪级")
+ iif(e.DataRow("工龄")>1,e.DataRow("工龄"),0)
Dim fdr3 As DataRow = dt.find("薪级 = \'" &
dj & "\'")
e.DataRow("现薪级工资") = fdr3("专技薪金")
e.DataRow("薪级档次") = dj
End If