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

由于代码中用到CurrentTable，但是执行代码的时候，当前表有的时候根本没有选择，也就是“焦点”没有落在table控件上，这时候如果执行代码，就会报错，如何加个条件判断一下呢？请老师帮我看下吧

(以下代码写在菜单的buttun click事件中)

 

 

If   XXXXXXXXXXXXXXXXX Then '该条件确保保存视图的时候焦点落在了当前表上,否则引用CurrentTable会报错

 

Dim dr As DataRow
Dim filter As String = " [项目] = '视图控制' And [参数1] ='" & user.Name & "' And [参数2] = '" &  CurrentTable.Name & "' and [参数3] = '" & CurrentTable.Form.Name & " '"
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")= CurrentTable.Form.Name
    Tables("项目参数表").Current("参数9") = CurrentTable.GetColVisibleWidth()
Else '如果找到的话,那么更新最新的列格式值
    dr("参数9") = CurrentTable.GetColVisibleWidth()
End If
DataTables("项目参数表").Save

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

End If

 不很理解你的意思。

 

 CurrentTable.Form ？

 

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

判断 if currenttable.name="XX" then

老师，关于这个问题做了个例子，上传了。见附件！问题是：当项目刚打开，如果直接去点击“保存视图”，马上报错！原因是 CurrentTable的问题，我觉得，得加个判断条件。

 

例子中保存视图按钮功能：各个窗口中的table控件的列宽和列顺序根据用户保存在数据库中。再次打开时，读取用户保存的数据。

 

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

点击浏览该文件:保存视图和多个主窗口例子.zip

有点甜老师，BIN老师，问题不行呀，看看我的例子，你就明白我的意思了。

第一点，代码这样写。

 

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

 

是的，很好的办法。谢谢了