Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于文本控件只读与不只读


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

主题：关于文本控件只读与不只读
帅哥哟，离线，有人找我吗？
scofields
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00 		关于文本控件只读与不只读  发帖心情 Post By：2016/7/7 17:05:00 [显示全部帖子]

红袍老师，这个窗口里的“新增”按钮，在用户单击后，上面的文本控件才恢复可用状态，如果没有单击，为只读状态。我写的如下代码貌似没有用：

if e.sender= true then
e.form.controls("ComboBox1").enabled= true
else
e.form.controls("ComboBox1).readonly=true
end if
用户单击新增按钮后，不可以上下点击查看其它记录
 回到顶部
帅哥哟，离线，有人找我吗？
scofields
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00 		  发帖心情 Post By：2016/7/7 17:06:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：船只报港.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
scofields
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00 		  发帖心情 Post By：2016/7/7 17:17:00 [显示全部帖子]

不懂这个代码，红袍老师，能解释下吗？写到哪里去？

 回到顶部
帅哥哟，离线，有人找我吗？
scofields
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00 		  发帖心情 Post By：2016/7/7 17:31:00 [显示全部帖子]

红袍老师，我就想实现不单击新增按钮时，所有的文本控件都是只读状态，单击后，文本控件可以编辑输入内容

 回到顶部
帅哥哟，离线，有人找我吗？
scofields
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：564 积分：4561 威望：0 精华：0 注册：2016/4/17 20:05:00 		  发帖心情 Post By：2016/7/16 19:26:00 [显示全部帖子]

红袍老师，这段代码怎么修改？我发现写入到窗口按钮里没有用啊！
Dim val As String 
Dim dr As DataRow = Tables("FAJHB").Current.DataRow
 If val = dr.SQLGetValue("过磅1")= True Then
 e.form.controls("车号1").ReadOnly = BooleanEnum.True
 e.Form.controls("吨位1").ReadOnly = BooleanEnum.True
Else
 e.form.controls("车号1").ReadOnly = BooleanEnum.False
 e.Form.controls("吨位1").ReadOnly = BooleanEnum.False
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询