以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  打开条件  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93703)
--  作者：联友
--  发布时间：2016/12/5 11:54:00
--  打开条件
 

求教

班级列内容重复等于开

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

 
--  作者：有点蓝
--  发布时间：2016/12/5 12:28:00
--  
http://www.foxtable.com/webhelp/scr/1478.htm
--  作者：联友
--  发布时间：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编辑过]
--  作者：有点蓝
--  发布时间：2016/12/5 14:38:00
--  
你是想限制不能录入重复值，还是想判断是否有重复值？

If DataTables("基本信息_Table1").GetValues("班级").Count <> DataTables("基本信息_Table1").DataRows.Count Then
--  作者：联友
--  发布时间：2016/12/5 14:42:00
--  
如果班级列只有一个班级，显示 Button1 按纽，或者 不显示 Button1 按纽
--  作者：有点蓝
--  发布时间：2016/12/5 14:59:00
--  

e.Form.Controls("Button1").Visible = DataTables("基本信息_Table1").GetValues("班级").Count = 1
--  作者：联友
--  发布时间：2016/12/5 18:46:00
--  

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

求老师帮我看看

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

[此贴子已经被作者于2016/12/5 19:06:16编辑过]
--  作者：有点蓝
--  发布时间：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", "学期|班级|学生姓名")
--  作者：联友
--  发布时间：2016/12/5 20:40:00
--  
谢谢