以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 包含列名称 (http://foxtable.com/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编辑过]
|
||||
-- 作者:blackzhu -- 发布时间: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 End If 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 建议看一下置顶的视频教程
[此贴子已经被作者于2016/10/17 14:23:00编辑过]
|
||||
-- 作者:良才 -- 发布时间:2016/10/17 15:33:00 -- 打开基本信息窗口 点击在校学生按钮,基本信息_Table1显示列为:班级,学生姓名,出生日期,民族,性别,校牌颜色 点击午餐学生按钮,基本信息_Table1显示列为:班级,学生姓名,出生日期,民族,性别 基本信息_Table1显示列:班级,学生姓名,出生日期,民族,性别,校牌颜色,点击打开窗口按钮时,只能打开窗口1
[此贴子已经被作者于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 -- 不好意思我没有表达清楚,谢谢 |
||||
-- 作者:blackzhu -- 发布时间: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 |