主题：包含列名称

查询表，Tables("查询表_Table1")，包含列有：学生姓名、年龄、性别等。

If Tables("查询表_Table1").包含 = 学生姓名、年龄、性别 Then,请指点,谢谢!

 for each cl as col in Tables("查询表_Table1")
select case cl.name
case "xxx","xxx"
end select
next

谢谢

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

 

包含多列，请指点，谢谢

打开基本信息窗口

点击在校学生按钮，基本信息_Table1显示列为：班级,学生姓名,出生日期,民族,性别,校牌颜色

点击午餐学生按钮，基本信息_Table1显示列为：班级,学生姓名,出生日期,民族,性别

基本信息_Table1显示列：班级,学生姓名,出生日期,民族,性别,校牌颜色,点击打开窗口按钮时,只能打开窗口1
基本信息_Table1显示列：班级,学生姓名,出生日期,民族,性别,点击打开窗口按钮时,只能打开窗口2

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:包含列.zip

干嘛不一次性把问题，把你想要实现什么功能讲清楚，老是绕来绕去的

不好意思我没有表达清楚，谢谢

 在校学生按钮
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