以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何定位光标  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11821)

--  作者:yacity
--  发布时间:2011/8/13 8:53:00
--  如何定位光标

如图

 


图片点击可在新窗口打开查看此主题相关图片如下:107.jpg
图片点击可在新窗口打开查看

 

当我在 产品名称 列 打开 自定义输入界面,输入产品后,光标 还是定位在 产品名称 列,

我想让此时的光标在 “数量” 列

该如何设置呢?

自定义输入界面的代码如下

 

keydown 事件

Dim tbl As Table = Tables("窗口3_Table1")
If e.KeyCode = Keys.Up Then
    tbl.Position = tbl.Position - 1
    e.Cancel = True
ElseIf e.KeyCode = Keys.Down Then
    tbl.Position = tbl.Position + 1
    e.Cancel = True
ElseIf e.KeyCode = Keys.Enter Then
    If tbl.Current IsNot Nothing Then
        Tables("zhidai").Current("ptypeid") = tbl.Current("ptypeid")
        Tables("zhidai").Current("pfullname") = tbl.Current("pfullname")
        Tables("zhidai").Current("Standard") = tbl.Current("Standard")
        Tables("zhidai").Current("Unit1") = tbl.Current("Unit1")
        Tables("zhidai").Current("price") = tbl.Current("price")
        Tables("zhidai").current("gongxu")=tbl.Current("gongxu")
    End If
    e.Cancel = True   
    e.Form.Close()
End If

 

是不是在这里设置?


--  作者:狐狸爸爸
--  发布时间:2011/8/13 9:00:00
--  

在这个窗口的AfterClose事件设置代码:

 

with Tables("XXX")

       Dim idx As integer = .Cols("yyy").Index

       .Select(.RowSel,Idx)

End With