Foxtable(狐表)用户栏目专家坐堂 → 窗口审核


  共有3354人关注过本帖树形打印复制链接

主题:窗口审核

帅哥哟,离线,有人找我吗?
Bin
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2015/1/17 15:27:00 [只看该作者]

声明一个全局变量.在文本框的ENter事件为这个全局变量赋值为当前值 例如
Vars("V")=e.sender.text

在Textchanged事件

If TextBox1=Vars("V") Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  12楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2015/1/18 10:46:00 [只看该作者]

我这样做的老师帮我看一下错在哪里:

全局变量

变量名称       变量类型    初始值

Vars("V")       String       空

 

ValueChanged

If Vars("V")=_ Username Then
MessageBox.Show( "1")

Else
  MessageBox.Show("2")
End If

 

Enter

Vars("V")=e.sender.text

谢谢老师帮我看一下  什么原因  怎么改都不对

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/18 10:57:00 [只看该作者]

呃,不知道你想表达什么

 

If e.Sender.Text = "某值" Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If


 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  14楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2015/1/18 14:35:00 [只看该作者]

你写的    某值  我那里是  当前操作员   我用的是外部用户表  _Username

If e.Sender.Text = "某值" Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If

 

也就是说 当前    If Vars("V")=_ Username Then  判断编辑者是不是当前操作员  决定ComboBox2当前造作员是否可以编辑


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/1/18 15:07:00 [只看该作者]

If e.form.controls("TextBox1").Text <> _Username Then
    e.form.controls("ComboBox2").enabled = False
Else
    e.form.controls("ComboBox2").enabled = True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
120785713
  16楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:195 积分:1395 威望:0 精华:0 注册:2014/1/21 9:45:00
  发帖心情 Post By:2015/1/19 16:18:00 [只看该作者]

谢谢


 回到顶部
总数 16 上一页 1 2