- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 包含列名称 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91690)
-- 发布时间：2016/10/17 10:41:00
-- 包含列名称
查询表，Tables("查询表_Table1")，包含列有：学生姓名、年龄、性别等。
If Tables("查询表_Table1").包含 = 学生姓名、年龄、性别 Then,请指点,谢谢!
[此贴子已经被作者于2016/10/17 10:44:12编辑过]
-- 发布时间：2016/10/17 10:45:00
--
for each cl as col in Tables("查询表_Table1")
select case cl.name
case "xxx","xxx"
end select
next
-- 发布时间：2016/10/17 11:21:00
--
谢谢
-- 发布时间：2016/10/17 14:11:00
--
For Each cl As Col In Tables("基本信息_Table1").Cols
If cl.name = "学生姓名,校牌颜色，等多列" Then
Forms("窗口1").Open()
End If
If cl.name = "学生姓名,性别，等多列" Then
Forms("窗口2").Open()
End If
Next
包含多列，请指点，谢谢
[此贴子已经被作者于2016/10/17 14:21:00编辑过]
-- 发布时间：2016/10/17 14:23:00
--
事件代码通常是这样的：
Select Case e.Col.name
Case "学生姓名","校牌颜色"
Forms("窗口1").Open()
Case "学生姓名","性别"
Forms("窗口2").Open()
End Select
Case "学生姓名","校牌颜色"
Forms("窗口1").Open()
Case "学生姓名","性别"
Forms("窗口2").Open()
End Select
建议看一下置顶的视频教程
[此贴子已经被作者于2016/10/17 14:23:00编辑过]
-- 发布时间：2016/10/17 15:33:00
--
打开基本信息窗口
点击在校学生按钮，基本信息_Table1显示列为：班级,学生姓名,出生日期,民族,性别,校牌颜色
点击午餐学生按钮，基本信息_Table1显示列为：班级,学生姓名,出生日期,民族,性别
基本信息_Table1显示列：班级,学生姓名,出生日期,民族,性别,校牌颜色,点击打开窗口按钮时,只能打开窗口1
基本信息_Table1显示列：班级,学生姓名,出生日期,民族,性别,点击打开窗口按钮时,只能打开窗口2
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:包含列.zip |
[此贴子已经被作者于2016/10/17 15:41:12编辑过]
-- 发布时间：2016/10/17 15:48:00
--
干嘛不一次性把问题，把你想要实现什么功能讲清楚，老是绕来绕去的
唯一区别就是多了一个列，直接判断不就行
If Tables("基本信息_Table1").Cols.Contains("校牌颜色") Then
Forms("窗口1").Open()
Else
Forms("窗口2").Open()
End If
-- 发布时间：2016/10/17 15:50:00
--
不好意思我没有表达清楚，谢谢
-- 发布时间：2016/10/17 15:52:00
--
在校学生按钮
e.Form.controls("Table1").Table.Fill("Sel ect 班级,a.学生姓名,出生日期,民族,性别,\'\' As 校牌颜色 From {学生基本信息} a Inner JOIN {缴学费信息} b ON a.学生姓名 = b.学生姓名", True)
Dim t As Table = e.Form.Controls("Table1").Table
For Each r As Row In t.Rows
If DataTables("缴餐费信息").Compute("Count(学生姓名)","学生姓名 = \'" & r("学生姓名") & "\'") = 0 Then
r("校牌颜色") = ""
Else
r("校牌颜色") = "绿牌"
End If
Next
Vars("窗口") ="窗口1"
午餐学生按钮
e.Form.controls("Table1").Table.Fill("Sel ect 班级,a.学生姓名,出生日期,民族,性别 From ({学生基本信息} a Inner JOIN {缴学费信息} b ON a.学生姓名 = b.学生姓名) Inner JOIN {缴餐费信息} k ON b.学生姓名 = k.学生姓名", True)
Vars("窗口") ="窗口2"
打开窗口按钮
Forms(Vars("窗口")).open