以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  传统编辑方式与自定义录入界面的方法!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=45894)

--  作者:身份不明
--  发布时间:2014/2/13 9:28:00
--  传统编辑方式与自定义录入界面的方法!

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20140213092340.jpg
图片点击可在新窗口打开查看

 

因为我想用窗口编辑方式录入信息,请问老师,如何在窗口的控件中,加入自定义录入界面的功能呢。


--  作者:Bin
--  发布时间:2014/2/13 9:29:00
--  
自己设计啊,参考着帮助做啊.

新手建议先按部就班看帮助,你一下子跳到这里来当然是不可以的.

--  作者:身份不明
--  发布时间:2014/2/13 9:43:00
--  

关于按钮权限设置:

 

If _UserName = "张三" Then
   
\'原来的代码
Else

    MessageBox
.show("你无权执行此项操作!"
)
End
If

 

Bin老师,如果是张三,李四,王五同时有权限,该如何写代码!


--  作者:Bin
--  发布时间:2014/2/13 9:47:00
--  
方法一

If _UserName = "张三" OrElse _UserName = "李四" OrElse _UserName = "王五Then
    \'原来的代码
Else

    MessageBox
.show("你无权执行此项操作!"
)
End
 If

方法二
select case _UserName
    case "张三","李四","王五"
    case else
      MessageBox.show("你无权执行此项操作!")
end select

--  作者:身份不明
--  发布时间:2014/2/13 10:42:00
--  

If e.Col.Name = "第十列" Then
    If User.Name <> "张经理" Then
        e.Cancel =
True
   
End If
End
If

 

Bin老师,张经理可以编辑第一列,第八列,第十列

该如何写代码!


--  作者:狐狸爸爸
--  发布时间:2014/2/13 10:53:00
--  
这个问题和你2楼的问题不是一回事吗?
 
 
If e.Col.Name = "第八列"  OrElse e.Col.Name = "第九列" OrElse e.Col.Name = "第十列" Then
    If User.Name <> "张经理" Then
        e.Cancel = True
    End If
End If