Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询按钮代码求助？


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

主题：查询按钮代码求助？
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		查询按钮代码求助？  发帖心情 Post By：2015/12/10 13:06:00 [只看该作者]

DataTables("鉴定上报表").DataRows.Clear
For Each jdgz As String In dt.GetValues("鉴定工种")
    Dim dr As DataRow = DataTables("鉴定上报表").AddNew
    dr("鉴定工种") = jdgz
    dt = DataTables("报名登记表")
    dr("鉴定考核人数_初级工_2") = dt.Compute("Count(身份证号码)", "鉴定等级 = '初级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_中级工_3") = dt.Compute("Count(身份证号码)", "鉴定等级 = '中级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_高级工_4") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级工' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_技师_5") = dt.Compute("Count(身份证号码)", "鉴定等级 = '技师' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_高级技师_6") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级技师' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dt = DataTables("证书编号表")
    dr("取得证书人数_初级工_8") = dt.Compute("Count(身份证号码)", "鉴定等级 = '初级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_中级工_9") = dt.Compute("Count(身份证号码)", "鉴定等级 = '中级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_高级工_10") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级工' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_技师_11") = dt.Compute("Count(身份证号码)", "鉴定等级 = '技师' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_高级技师_12") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级技师' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
   
Next

DataTables("鉴定上报表").DataRows.Clear
For Each dm As String In dt.GetValues("代码")
    Dim dr As DataRow = DataTables("鉴定上报表").AddNew
dt = DataTables("报名登记表")
    dr("鉴定考核人数_初级工_2") = dt.Compute("Count(身份证号码)", "鉴定等级 = '初级工' and 代码 = '" & dr("代码")  & "' and " & filter )
    dr("鉴定考核人数_中级工_3") = dt.Compute("Count(身份证号码)", "鉴定等级 = '中级工' and 代码 = '" & dr("代码")  & "' and " & filter )
    dr("鉴定考核人数_高级工_4") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级工' And 代码 = '" & dr("代码")  & "' and " & filter )
    dr("鉴定考核人数_技师_5") = dt.Compute("Count(身份证号码)", "鉴定等级 = '技师' and 代码 = '" & dr("代码")  & "' and " & filter )
    dr("鉴定考核人数_高级技师_6") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级技师' And 代码 = '" & dr("代码")  & "' and " & filter )
    dr("代码") = dm
    dt = DataTables("证书编号表")
    dr("取得证书人数_初级工_8") = dt.Compute("Count(身份证号码)", "鉴定等级 = '初级工' and 代码 = '" & dr("代码")  & "' and " & filter )
    dr("取得证书人数_中级工_9") = dt.Compute("Count(身份证号码)", "鉴定等级 = '中级工' and 代码 = '" & dr("代码")  & "' and " & filter )
    dr("取得证书人数_高级工_10") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级工' And 代码 = '" & dr("代码")  & "' and " & filter )
    dr("取得证书人数_技师_11") = dt.Compute("Count(身份证号码)", "鉴定等级 = '技师' and 代码 = '" & dr("代码")  & "' and " & filter )
    dr("取得证书人数_高级技师_12") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级技师' And 代码 = '" & dr("代码")  & "' and " & filter )
   
Next

 

上述代码的结果：“代码”列有数据，但“鉴定工种”列没有数据，为空，这是什么原因？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/10 14:32:00 [只看该作者]

去掉这句代码

 

DataTables("鉴定上报表").DataRows.Clear

 

这句代码的意思是删除所有的行数据啊
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/12/10 14:50:00 [只看该作者]

去掉后出新问题：比如有100个工种，前100行“鉴定工种”列有内容，“代码”列为空；后100行“鉴定工种”列为空，“代码”列有内容；

我想要的结果是：这100行“鉴定工种”列和“代码”列同时有内容，且和“工种目录表”中的“鉴定工种表”列和“代码”对应
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/12/10 14:56:00 [只看该作者]

这个“鉴定上报表”的作用是：查询某个时间段内的各鉴定工种的各等级的报考人数和取证人数，同时对应的代码也相应查出

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/12/10 14:57:00 [只看该作者]

DataTables("鉴定上报表").DataRows.Clear
For Each ary() As String In dt.GetValues("鉴定工种|代码")
    Dim dr As DataRow = DataTables("鉴定上报表").AddNew
    dr("鉴定工种") = ary(0)
    dr("代码") = ary(1)
    dt = DataTables("报名登记表")
    dr("鉴定考核人数_初级工_2") = dt.Compute("Count(身份证号码)", "鉴定等级 = '初级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_中级工_3") = dt.Compute("Count(身份证号码)", "鉴定等级 = '中级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_高级工_4") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级工' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_技师_5") = dt.Compute("Count(身份证号码)", "鉴定等级 = '技师' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("鉴定考核人数_高级技师_6") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级技师' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dt = DataTables("证书编号表")
    dr("取得证书人数_初级工_8") = dt.Compute("Count(身份证号码)", "鉴定等级 = '初级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_中级工_9") = dt.Compute("Count(身份证号码)", "鉴定等级 = '中级工' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_高级工_10") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级工' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_技师_11") = dt.Compute("Count(身份证号码)", "鉴定等级 = '技师' and 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
    dr("取得证书人数_高级技师_12") = dt.Compute("Count(身份证号码)", "鉴定等级 = '高级技师' And 鉴定工种 = '" & dr("鉴定工种")  & "' and " & filter )
Next

 
 回到顶部
帅哥哟，离线，有人找我吗？
lisheng7177
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：531 积分：3216 威望：0 精华：0 注册：2014/12/2 9:23:00 		  发帖心情 Post By：2015/12/10 15:01:00 [只看该作者]

图片点击可在新窗口打开查看多谢版主！现在搞定了！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 4 次数据查询