主题：如何定位光标？

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

 

 

此主题相关图片如下：207.jpg

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

点击浏览该文件:管理项目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

 

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

您的系统问题不是一点点，好好查一查结构逻辑！

 

 

收到，我查查。

谢谢 各位老大的关注，不知道可以解决没有？

隔了很久了 再顶一下！