Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打开条件


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

主题：打开条件
美女呀，离线，留言给我吧！
联友
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00 		打开条件  发帖心情 Post By：2016/12/5 11:54:00 [只看该作者]

 

求教

班级列内容重复等于开

If Tables("基本信息_Table1").Cols("班级").重复 Then

 

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/5 12:28:00 [只看该作者]

http://www.foxtable.com/webhelp/scr/1478.htm

 回到顶部
美女呀，离线，留言给我吧！
联友
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00 		  发帖心情 Post By：2016/12/5 13:55:00 [只看该作者]

这样不行？

If DataTables("基本信息_Table1").DataCols("班级").Unique = True Then
e.Form.Controls("Button1").Visible = False
End If

 

学期 班级
2016年秋季 101
2016年秋季 101
2016年秋季 101
2016年秋季 101
2016年秋季 101
2016年秋季 101
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 102
2016年秋季 201
2016年秋季 201
2016年秋季 201
2016年秋季 201
2016年秋季 201

如果班级列只有一个班级，显示 Button1 按纽，或者 不显示 Button1 按纽

[此贴子已经被作者于2016/12/5 14:39:54编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/5 14:38:00 [只看该作者]

你是想限制不能录入重复值，还是想判断是否有重复值？

If DataTables("基本信息_Table1").GetValues("班级").Count <> DataTables("基本信息_Table1").DataRows.Count Then
 回到顶部
美女呀，离线，留言给我吧！
联友
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00 		  发帖心情 Post By：2016/12/5 14:42:00 [只看该作者]

如果班级列只有一个班级，显示 Button1 按纽，或者 不显示 Button1 按纽

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/5 14:59:00 [只看该作者]


e.Form.Controls("Button1").Visible = DataTables("基本信息_Table1").GetValues("班级").Count = 1
 回到顶部
美女呀，离线，留言给我吧！
联友
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00 		  发帖心情 Post By：2016/12/5 18:46:00 [只看该作者]

班级列是同一班级Button1取消隐藏或者Button1隐藏。

求老师帮我看看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.zip

[此贴子已经被作者于2016/12/5 19:06:16编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2016/12/5 20:13:00 [只看该作者]

AfterLoad

Dim t As Table = e.Form.controls("Table1").Table
t.Fill("Sｅlect 学期,班级,学生编号,学生姓名 From {学生基本信息}", True)
Forms("共有窗体").Open()

e.Form.Controls("Button1").Visible = t.DataTable.GetValues("班级").Count = 1

Dim trv As WinForm.TreeView = Forms("共有窗体").Controls("TreeView1")
trv.BuildTree("基本信息_Table1", "学期|班级|学生姓名")
 回到顶部
美女呀，离线，留言给我吧！
联友
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00 		  发帖心情 Post By：2016/12/5 20:40:00 [只看该作者]

谢谢

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