金蝶vb开发，获取表格上的光标所在的行和列及值

Private Sub m_BillInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean)
 
    'TODO: 请在此处添加代码响应事件
 

    Select Case BOSTool.ToolName
    Case "Test"
        '此处添加处理Test 菜单对象的 Click 事件
        
        Dim dctTableInfo As Object　　　　　　//设置对象

        Dim iCol As Long　　　　　　　　　　　　//定义列变量

        Dim iRow As Long　　　　　　　　　　　　//定义行变量

        m_BillInterface.GetActiveField dctTableInfo, iCol, iRow　　　　　　//获取行和列的值


          Dim z As String

          z = m_BillInterface.GetFieldValue("FText", iRow)　　　　　　　　//获取表格上列字段为“FText”的  第iRow行的值

          m_BillInterface.SetFieldValue "FText1", z　　　　　　　　　　　　//将表格上获取的值赋给表头字段为“FText1”的文本框


      MsgBox z
        
        
       

    Case Else
    End Select

End Sub