主题：用戶权限之后,窗口无效-已解決

自定的快捷搜寻功能失效.
经过各位提醒,发现了自己设置上的问题.
1.搜寻窗口
输入搜寻內容的TEXTBOX,绑定到"主页.查找款号"列上
2.输入搜寻內容的TEXTBOX
LEAVE  设了这样的代码

    Dim ta1 As String = Tables("主页")(0,"查找款号")'

With CurrentTable
    Dim r As Integer
    r = .FindRow("[模号] Like '*" & ta1 & "*'", .Position + 1, True ) '从当前行开始查找
    If r >= 0 Then '如果找到的话
        .Position = r '定位到找到的行.
   Else
        MessageBox.Show("沒有此模号!","提示")
    End If
End With

因为"主页"表设为不可编辑,所以业务员用不到这个功能,发现问题所在,现先把主页设为可编辑.

发现好像绕了大圈一样.

在看其他帖子 看到相类似的例子,下班后做过测试看看能否简化

相关例子代码
Dim gx As WinForm.CheckBox = e.Form.Controls("CheckBox1")
If gx.Checked=True Then
 Tables("表A").Current("第四列")=gx.Text
End If

在编写的过程,总是绕大圈,思路上不夠透彻.