以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177887)
--  作者：lgz518
--  发布时间：2022/6/8 15:59:00
--  代码错误
Dim dr As Row = Tables("主表").Current
If dr Is Nothing Then
   
Else
\'    Dim r As Row = e.Row
    Dim r As Row = e.Current
    Dim nma() As String = {"部门名称", "岗位名称"}
    For i As Integer = 0 To nma.Length - 1
        dr(nma(i)) = r(nma(i))
    Next
End If

红字代码报错，e.Row或e.Current，不是ControIEventArgs成员，怎么改正？
--  作者：有点蓝
--  发布时间：2022/6/8 16:06:00
--  
代码要做什么功能？
--  作者：lgz518
--  发布时间：2022/6/8 17:10:00
--  
业务主表“"部门名称", "岗位名称"，从《部门表》"部门名称", "岗位名称"导入

上面《部门表》表的单击事件是正常，换用-按键单击事件-就报错
--  作者：有点蓝
--  发布时间：2022/6/8 17:18:00
--  
Dim dr As Row = Tables("主表").Current
Dim r As Row = Tables("部门表").Current
If dr Isnot Nothing andalso r Isnot Nothing  Then
    Dim nma() As String = {"部门名称", "岗位名称"}
    For i As Integer = 0 To nma.Length - 1
        dr(nma(i)) = r(nma(i))
    Next
End If