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

在DataDolChanged事件中语句,这个语句的目的是在编辑了单元格之后进行表间引用。

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

      If e.NewValue Is Nothing Then

         e.DataRow("工资") = Nothing

     Else

         Dim dr As DataRow

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

         If dr IsNot Nothing Then

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

         End If

      End If

  End If

请教各位，在表属性的AfterEdit事件和按钮控件的click事件中，进行表间引用的代码怎么写？