如图：打开 销售信息---销售开单 输入客户名称后，如何让光标自动定位到  “产品名称”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目11.table

请参考：

http://www.foxtable.com/help/topics/0549.htm

http://www.foxtable.com/help/topics/0550.htm

http://www.foxtable.com/help/topics/0569.htm

实在弄不出来

With Tables("chuhuodan.chuhuo")
Dim idx As Integer = .Cols("chanpinname").Index \'定位光标

       .Select(.RowSel,Idx)  \'定位光标
End With

或者

With Tables("销售录入_table1")
Dim idx As Integer = .Cols("chanpinname").Index \'定位光标

       .Select(.RowSel,Idx)  \'定位光标
End With

放在afterclose  或者 beforcolse 都不行。

Dim t As Table = Tables("表A")
If t.Focus Then \'将输入焦点移到当前表
    t.StartEditing \'如果成功,则开始编辑.
End If

放在客户名称文本框的ValueChanged事件中

1、引用Table出错。

2、模式窗口存在问题。

With Tables("chuhuodan")
    Dim idx As Integer = .Cols("kehuid").Index
    .Select(.RowSel,Idx)
End With

With Tables("chuhuodan.chuhuo")
    If .Rows.Count = 0 Then
        .AddNew(1)
    End If
End With
With Tables("chuhuodan.chuhuo")
    Dim idx As Integer = .Cols("chanpinname").Index \'定位光标
    .Select(.RowSel,Idx)  \'定位光标
    .Focus
End With
Sendkeys.Send("{TAB 6}")

老六看下，本应就可以：

With Tables("chuhuodan.chuhuo")
    Dim idx As Integer = .Cols("chanpinname").Index \'定位光标
    .Select(.RowSel,Idx)  \'定位光标
    .Focus
End With

但在模式窗口却不起作用。

收到，我查查。

隔了很久了 再顶一下！