Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]控件与控件之间的关联问题


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

主题：[求助]控件与控件之间的关联问题
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/14 13:33:00 [显示全部帖子]

控件A，valuechanged事件

控件B.visible = 控件A.text > ""

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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/14 14:09:00 [显示全部帖子]

e.form.controls("控件B").visible = (e.sender.text > "")

看不懂可以改为这样
dim b as boolean =  (e.sender.text > "")
e.form.controls("控件B").visible =b

或者这样
if e.sender.text > "" then
e.form.controls("控件B").visible =true
else
e.form.controls("控件B").visible =false
end if

都是一样的东西，自己理解一下
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/16 20:17:00 [显示全部帖子]

建议还是多看几遍编程基础：http://www.foxtable.com/webhelp/topics/1592.htm，很多代码都不符合语法，基本都是乱用

Dim b As String = e.sender.text
e.Form.controls("DataTimePicker13")=Table("LOA").current(b & "_开始日期")
e.Form.controls("DataTimePicker16")=Table("LOA").current(b & "_结束日期")
e.Form.Controls("Label48").visible = (b = "年休假")
e.Form.Controls("Label49").visible = (b = "探亲假")
e.Form.Controls("Label50").visible = (b = "婚假")
e.Form.Controls("Label51").visible = (b = "产假")
e.Form.Controls("Label52").visible =( b = "陪产假")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/17 11:36:00 [显示全部帖子]

e.Form.controls("DataTimePicker13").value = Table("LOA").current(b & "_开始日期")

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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/17 13:41:00 [显示全部帖子]

e.Form.controls("DataTimePicker13").value = Tables("LOA").current(b & "_开始日期")

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


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/17 14:49:00 [显示全部帖子]

1、控件名称不正确，改正确
2、关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目试试。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/18 15:25:00 [显示全部帖子]

没有绑定列的情况下，日期控件默认显示的肯定是当前日期。窗口打开后如果选择了其它日期，下次下拉当然是之前选择的日期。

代码应该这样用吧
Dim b As String = e.Form.controls("ComboBox17").text
if Tables("LOA").current isnot nothing
If e.sender.Value Is Nothing Then
    Tables("LOA").current(b & "_开始日期") = Nothing
Else
    Tables("LOA").current(b & "_开始日期") = e.sender.Value
End If
end if
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110750 积分：563676 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/4/18 16:58:00 [显示全部帖子]

如果绑定了列，完全不需要自己写代码赋值了

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05762 秒, 5 次数据查询