- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助：问一个if列表取值的语句 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=152091)
-- 发布时间：2020/7/8 18:54:00
-- 求助：问一个if列表取值的语句
想知道，怎么读取列表中的数据，语句真不会啦，
麻烦大神告知，
类似的内容可以帮忙推荐
就是根据列表中某一列对应的值，然后设置对应的颜色
不知道怎么读取值啦
本来绑定空间了，然后读不出来
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
-- 发布时间：2020/7/9 8:43:00
--
代码放到表格的currentchanged事件
If e.Table.Current Is Nothing orelse Forms("某某窗口").opened Then \'如果Current为Nothing
Return \'则返回
End If
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