Foxtable(狐表)用户栏目专家坐堂 → 包含列名称


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

主题:包含列名称

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
包含列名称  发帖心情 Post By:2016/10/17 10:41:00 [只看该作者]

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

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

[此贴子已经被作者于2016/10/17 10:44:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/10/17 10:45:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2016/10/17 11:21:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2016/10/17 15:33:00 [只看该作者]

打开基本信息窗口

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

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

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:包含列.zip

[此贴子已经被作者于2016/10/17 15:41:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/17 15:48:00 [只看该作者]

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

唯一区别就是多了一个列,直接判断不就行

If Tables("基本信息_Table1").Cols.Contains("校牌颜色") Then
    Forms("窗口1").Open()
Else
    Forms("窗口2").Open()
End If

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:788 积分:6297 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2016/10/17 15:50:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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



 回到顶部