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


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

主题:包含列名称

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | 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

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | 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



 回到顶部