Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查询按钮生成的数据不完整


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

主题：查询按钮生成的数据不完整
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/29 16:48:00 [显示全部帖子]

        For i As Integer = 0 To drs6.Count - 1 Step 2
                Dim cx As DataRow = DataTables("查询").AddNew
                cx("红方_编号") = drs6(i)("编号")
                cx("红方_姓名") = drs6(i)("姓名")
                cx("红方_上轮止累计积分") = drs6(i)("上轮止累计积分")
                cx("红方_曾交战对手累计积分") = drs6(i)("曾交战对手累计积分")
                cx("当前局成绩_红方") = IIF(drs6(i).IsNull("积分")," Is Null"," ='" & drs6(i)("积分")  & "'")
         If i + 1 <= drs6.Count - 1
                cx("黑方_编号") = drs6(i+1)("编号")
                cx("黑方_姓名") = drs6(i+1)("姓名")
                cx("黑方_上轮止累计积分") = drs6(i+1)("上轮止累计积分")
                cx("黑方_曾交战对手累计积分") = drs6(i+1)("曾交战对手累计积分")
                cx("当前局成绩_黑方") = IIF(drs6(i+1).IsNull("积分")," Is Null"," ='" & drs6(i+1)("积分")  & "'")
            End If
        Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/29 20:58:00 [显示全部帖子]


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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/29 21:56:00 [显示全部帖子]

判断查询结果是否有值，比如使用find，就是判断if dr isnot nothing，如果使用select，就判断drs.Count > 0

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/29 22:42:00 [显示全部帖子]

没看懂这代码逻辑。自己调试一下看哪一句出错

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/30 8:41:00 [显示全部帖子]

使用文字描述一下这段代码需要实现什么功能？

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/30 13:56:00 [显示全部帖子]

图片点击可在新窗口打开查看

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/1 9:47:00 [显示全部帖子]

没看懂。请使用文字描述一下这段代码想要实现什么功能？

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/1 11:17:00 [显示全部帖子]

描述要做什么功能，不是描述这个代码的过程。查询表最终要显示什么结果？

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/1 11:53:00 [显示全部帖子]

红、黑方都要一致指的是什么？和对阵表一样，同一个桌号的放到同一行？

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


加好友 发短信
等级：超级版主 帖子：106132 积分：539771 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/1 12:02:00 [显示全部帖子]

For Each s As String In DataTables("比赛积分").SQLGetValues("桌号","[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] > 0","桌号")
    Dim dr As DataRow = DataTables("查询").AddNew
    dr("桌号") = s
    Dim nr As DataRow = DataTables("比赛积分").SQLFind("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = '" & s & "' and 红黑方='红方'")
    If nr IsNot Nothing Then
        dr("红方_编号") = nr("编号")
    End If
    nr  = DataTables("比赛积分").SQLFind("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [桌号] = '" & s & "' and 红黑方='黑方'")
    If nr IsNot Nothing Then
        dr("黑方_编号") = nr("编号")
    End If
Next
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询