主题：怎么写成内部函数

在多个窗口的表事件需要使用这个，怎么修改成函数

If e.Table.Current IsNot Nothing
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("crm_sale").FindRow(dr)

If wz >=0 Then
      Tables("crm_sale").Position = wz
End If
End If

放到内部函数里提示不能使用e