主题：[已解决]如何判断焦点是否落在table控件上？

 不很理解你的意思。

 

 CurrentTable.Form ？

 

 这个是窗口表？焦点设置在窗口表上的代码是这样 Forms("窗口1").Controls("Table1").Select

第一点，代码这样写。

 

Dim dr As DataRow
Dim frm As String = Nothing
If CurrentTable.Form IsNot Nothing Then
    frm = CurrentTable.Form.Name
End If

Dim filter As String = " [项目] = '视图控制' And [参数1] ='" & user.Name & "' And [参数2] = '" &  CurrentTable.Name & "' and [参数3] = '" & frm & " '"
dr = DataTables("项目参数表").Find(filter)
If dr Is Nothing Then '如果找不到的话
    Tables("项目参数表").AddNew()
    Tables("项目参数表").Current("项目") = "视图控制"
    Tables("项目参数表").Current("参数1") = user.Name
    Tables("项目参数表").Current("参数2")= CurrentTable.Name
    Tables("项目参数表").Current("参数3")= frm
    Tables("项目参数表").Current("参数9") = CurrentTable.GetColVisibleWidth()
Else '如果找到的话,那么更新最新的列格式值
    dr("参数9") = CurrentTable.GetColVisibleWidth()
End If
DataTables("项目参数表").Save

MessageBox.Show("保存成功!","提示")

 第二点，你打开窗口的时候，用代码设置让表控件获取焦点

 

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