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


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

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

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


加好友 发短信
等级:超级版主 帖子:106132 积分:539771 威望: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

 回到顶部