Foxtable(狐表)用户栏目专家坐堂 → 请教在窗口中如何用In关键字


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

主题:请教在窗口中如何用In关键字

美女呀,离线,留言给我吧!
chengzhang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:49 积分:410 威望:0 精华:0 注册:2011/9/5 15:05:00
请教在窗口中如何用In关键字  发帖心情 Post By:2011/9/14 10:42:00 [只看该作者]

im dt2 As DataTable
        Dim dr2 As DataRow
        cmd.CommandText = "select gID from {gradeInfo} where gradeName = '" & e.Form.Controls("cbcgInfo").value.trim() & "'"
        dt = cmd.ExecuteReader()
        dr = dt.DataRows(0)
        cmd.CommandText = "select cID from {classInfo} where gID = " & dr("gID")
        dt2 = cmd.ExecuteReader()
        'dr2 = dt2.DataCols
        MessageBox.Show(dt2.DataCols("cID").Tostring)
        Tables("档案信息_studentInfo").Filter = " 班级 in  条件

怎么用IN关键字,如何根据查询的cID的值作条件


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/9/14 11:12:00 [只看该作者]

没有表测试,只能大概给个代码,请自行调整,如果班级是整数型,记得不用单引号。

 

Dim dt2 As DataTable
Dim dr2 As DataRow
Dim bjs As String
cmd.CommandText = "select gID from {gradeInfo} where gradeName = '" & e.Form.Controls("cbcgInfo").value.trim() & "'"
dt = cmd.ExecuteReader()
dr = dt.DataRows(0)
cmd.CommandText = "select cID from {classInfo} where gID = " & dr("gID")
dt2 = cmd.ExecuteReader()
For Each  dr As DataRow In dt2.DataRows
  bjs = bjs & "'" & dr("班级") & "',"
Next
bjs = bjs.Trim(","c)
Tables("档案信息_studentInfo").Filter = " 班级 in (" & bjs & ")"


 回到顶部
美女呀,离线,留言给我吧!
chengzhang
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:49 积分:410 威望:0 精华:0 注册:2011/9/5 15:05:00
  发帖心情 Post By:2011/9/14 11:42:00 [只看该作者]

谢谢!老大

我会调整了


 回到顶部