主题：关于下拉窗体的操作

DropDownOpened事件，加上代码

 

e.Form.Controls("Table1").Select

表格DrawCell事件，写代码

 

Dim ary() As String = e.Table.name.Split("_")
If ary.length = 2 Then
    forms(ary(0)).controls(ary(1)).Select
End If

下拉窗口的table控件的对应的drawcell事件。

 那就写到商户资料表的drawcell事件。

 具体例子发上来测试。

Drawcell事件代码去掉

 

DropDownOpened改成

 

e.Form.controls("table1").Select
e.Form.controls("table1").Table.Select(0,0)

e.Form.DropDownBox.Select() '将输入焦点返回下拉列表框

 

照抄红色代码即可。没有实现效果？

 

目的是让table控件先得到焦点，这样就不会出现你点击的时候焦点在外面、首次移入table的时候跳到最后。