Foxtable(狐表)用户栏目专家坐堂 → 求助:问一个if列表取值的语句


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

主题:求助:问一个if列表取值的语句

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


加好友 发短信
等级:幼狐 帖子:58 积分:519 威望:0 精华:0 注册:2020/6/14 8:45:00
求助:问一个if列表取值的语句  发帖心情 Post By:2020/7/8 18:54:00 [只看该作者]

想知道,怎么读取列表中的数据,语句真不会啦,
麻烦大神告知,
类似的内容可以帮忙推荐

就是根据列表中某一列对应的值,然后设置对应的颜色
不知道怎么读取值啦
本来绑定空间了,然后读不出来
If e.Form.Controls("Label15").text = "A" Then   这句错在哪里,
e.Form.Controls("Label2").ForeColor= Color.lime
e.Form.Controls("Label7").ForeColor= Color.lime
End If

加上括号"A" 也不行,
Dim r As String 
 r=e.Form.Controls("Label15").text
If r = "A" Then   
上边的也不行,或者应该用什么语句


图片点击可在新窗口打开查看此主题相关图片如下:答案1.png
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:答案2.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:答案3.png
图片点击可在新窗口打开查看



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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/9 8:43:00 [只看该作者]

代码放到表格的currentchanged事件

If e.Table.Current Is Nothing orelse Forms("某某窗口").opened Then '如果Current为Nothing
    Return '则返回
End
 If
If e.Table.Current("答案") = "A" Then   这句错在哪里,
Forms("某某窗口").Controls("Label2").ForeColor= Color.lime
Forms("某某窗口").Controls("Label7").ForeColor= Color.lime
else
Forms("某某窗口").Controls("Label2").ForeColor= Color.white
Forms("某某窗口").Controls("Label7").ForeColor= Color.white
End If

 回到顶部