Foxtable(狐表)用户栏目专家坐堂 → 文本框是否能编辑的控制


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

主题:文本框是否能编辑的控制

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


加好友 发短信
等级:八尾狐 帖子:2055 积分:6751 威望:0 精华:0 注册:2017/11/8 17:37:00
文本框是否能编辑的控制  发帖心情 Post By:2025/1/20 10:21:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20250120101916.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


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


加好友 发短信
等级:八尾狐 帖子:2055 积分:6751 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2025/1/20 10:22:00 [只看该作者]

'If Tables("物料类别").current.Locked = True Then
'    e.Form.controls("DropBox5").Enabled = False
'Else If Tables("物料类别").current.Locked = False Then
'    e.Form.controls("DropBox5").Enabled = True
'End If
这样写不知哪出问题,也是不行的

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111932 积分:569814 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/20 10:22:00 [只看该作者]


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


加好友 发短信
等级:八尾狐 帖子:2055 积分:6751 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2025/1/20 10:45:00 [只看该作者]

我现在是想:当本行锁定时就不能编辑,解锁后就可以编辑,但是测试了很多次都是不行
If Tables("物料类别").current.Locked = True Then
    e.Form.controls("DropBox5").Enabled = False
Else If Tables("物料类别").current.Locked = False Then
    e.Form.controls("DropBox5").Enabled = True
End If

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111932 积分:569814 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/20 10:57:00 [只看该作者]

到表格currentchanged、DataRowLockedChanged事件处理
[此贴子已经被作者于2025/1/20 10:58:14编辑过]

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


加好友 发短信
等级:八尾狐 帖子:2055 积分:6751 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2025/1/20 15:59:00 [只看该作者]

没有绑定文本框字段情况下,如果文本为空时,怎样才能使当前行指定列为空
If e.Form.controls("DropBox5").value = "" Then
    Tables("物料类别").current("税目ID") = Nothing 
End If
这个需要写在哪里

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111932 积分:569814 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/20 16:03:00 [只看该作者]

放到valuechanged事件

If e.sender.text ="" Then
    Tables("物料类别").current("税目ID") = Nothing 
End If

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


加好友 发短信
等级:八尾狐 帖子:2055 积分:6751 威望:0 精华:0 注册:2017/11/8 17:37:00
  发帖心情 Post By:2025/1/20 16:39:00 [只看该作者]

是不是哪里出错了
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111932 积分:569814 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/1/20 17:04:00 [只看该作者]

放到Validating事件

 回到顶部