以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用戶权限之后,窗口无效-已解決  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=34305)
--  作者：realredred
--  发布时间：2013/6/4 22:33:00
--  用戶权限之后,窗口无效-已解決

项目里有设用戶权限

但当某用戶限制了,只能看不能修改表的同时

自设窗口的功能也一並失效了,其中自定了一个搜寻功能

如何能在限制用戶不能修改表亦能使用到窗口的功能?

[此贴子已经被作者于2013-6-5 18:38:33编辑过]
--  作者：Bin
--  发布时间：2013/6/5 8:43:00
--  
你是什么情况?刚测试了.锁定表和窗口没有任何关系啊.对查找功能也没影响啊.你上个例子+详细描述你的问题.
--  作者：XYT
--  发布时间：2013/6/5 8:43:00
--  
只是不能修改，能查询啊
--  作者：狐狸爸爸
--  发布时间：2013/6/5 8:51:00
--  

用于输入搜索内容的输入框，你也绑定到了字段？

用于搜索的输入框，一般不需要绑定的。
--  作者：realredred
--  发布时间：2013/6/5 13:45:00
--  


自定的快捷搜寻功能失效.
经过各位提醒,发现了自己设置上的问题.
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

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


 
--  作者：狐狸爸爸
--  发布时间：2013/6/5 14:25:00
--  
提醒，输入搜寻内容的TextBox，不能绑定到任何列。