[求助]计算年功工资的代码不对 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好。下面的代码想根据当前表（“工资表”）的“连续工龄”列数值，在“年功表”的“累计工龄”列查找相符的行，并将“年功表”的"计发标准"列的值写入“工资表”的“年功金额”列，请老师帮助改正代码。谢谢。

Select Case e.DataCol.name

Case "连续工龄"

If e.DataRow.IsNull("连续工龄") Then

e.DataRow("年功金额") = Nothing

Else

Dim bm As String = e.DataRow("连续工龄")

Dim dr As DataRow = DataTables("年功表").Find("累计工龄 = '" & bm & "'")

If dr IsNot Nothing Then

e.DataRow("年功金额") = dr("计发标准")

End If

End Select

主题：[求助]计算年功工资的代码不对