主题：表间引用的代码编写问题

 If e.Col.name = "岗位" Then

      If e.row.Isnull("岗位") Then

         e.Row("工资") = Nothing

     Else

         Dim dr As DataRow

         dr =DataTables("字典").Find("[岗位]='" & e.row("岗位")  & "'")

         If dr IsNot Nothing Then

              e.Row("工资") = dr("工资")

         End If

      End If

  End If