Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:如何定位光标

1楼
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

 

是不是在这里设置?

2楼
狐狸爸爸 发表于:2011/8/13 9:00:00

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

 

with Tables("XXX")

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

       .Select(.RowSel,Idx)

End With

共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .01563 s, 2 queries.