Foxtable(狐表) → 用户栏目 → 专家坐堂 → 我真不明！


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

主题：我真不明！
美女呀，离线，留言给我吧！
采菊东篱下
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		我真不明！  发帖心情 Post By：2020/7/3 10:01:00 [显示全部帖子]

帮助里

Ceiling

返回大于或等于指定数字的最小整数。

例如：

Dim Val As Double = 123.1
Dim Lng As Long = Math.Ceiling(Val)

执行后变量Lng的值将等于124。

　　我执行messagebox.show(math.Ceiling(1 \ 2))结果是0，不是应为1吗？怎么变0了！


　
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/3 10:16:00 [显示全部帖子]

哦，我明白了，我用了1\2,不是1/2

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/3 10:47:00 [显示全部帖子]

其实这个疑问是这帖：
72楼，你帮我写的代码，我今早发现有问题查出来的，发这帖后猛然醒悟，用的是“\”，不是“/”,看你的回答也是这样指出，我当时对你给的代码没怀疑，后来发现得出的结果不对，就硬把dr("桌号") = math.Ceiling(i2 \ 2)改成dr("桌号") = math.Ceiling((i2 + 1) \ 2),显示对了，但问题还没最终解决，这问题应与 dr("排序") = math.Ceiling(i2 / 2)无关了，比赛积分表棋赛名称222，第一轮已经生成9个人，但老人组表就是只显示4行，8个人，少了一个人，一调就报错！　　
        Dim qsmc As WinForm.ComboBox = e.Form.Controls("棋赛名称")
        Dim di1 As String = qsmc.Value
        Dim m As WinForm.TextBox = e.Form.Controls("第几轮")
        Dim di2 As String = m.Value
        Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")
        Dim di3 As Date = bsrq.Value
        If bsrq.text ="" Then
            messagebox.show("请选择日期")
            Return
        End If
        Dim fz As WinForm.ComboBox = e.Form.Controls("fenzhu")
        Dim Str As String = fz.Value
        Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'")
        Dim a As String = Cstr(Val(di2)-1)
        Dim i2 As Integer = 1
        Dim ii2 As Integer = 1
        Dim dts As List(of DataRow) = DataTables("基本信息").SQLSelect("[棋赛名称] = '" & di1 & "'And [身份] = '参赛人' And [分组] = '" & Str & "'")
        DataTables("比赛积分").DeleteFor("棋赛名称 is null and 第几轮比赛 is null And [分组] = '" & Str & "'")
        Dim cnt As Integer
        cnt = DataTables("比赛积分").Compute("Count([姓名])", "[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'")
        If di2 =1 And cnt = 0 Then
            Do While dts.Count > 0
                Dim idx As Integer = rand.Next(0,dts.Count)
                dr = DataTables("比赛积分").AddNew
                dr("排序") = math.Ceiling(i2 / 2)
                dr("日期") = di3
                dr("棋赛名称") = di1
                dr("第几轮比赛") = di2
                dr("编号") = dts(idx)("编号")
                dr("姓名") = dts(idx)("姓名")
                dr("轮赛次数值转换") = Val(di2)
                dr("分组") = Str
                dts.RemoveAt(idx)
                i2 + = 1
            Loop
            DataTables("比赛积分").Load
            DataTables("比赛积分").Save()
            DataTables("老人组").DataRows.Clear
            Dim drs1 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'","","日期 Desc,分组,排序 Desc")
            For i As Integer = 0 To drs1.count - 1 Step 2
                If i + 1 <= drs1.Count - 1
                    Dim nr As DataRow = DataTables("老人组").AddNew
                    nr("桌号") = drs1(i)("排序")
                    nr("红方_编号") = drs1(i)("编号")
                    nr("红方_姓名") = drs1(i)("姓名")
                    nr("黑方_编号") = drs1(i+1)("编号")
                    nr("黑方_姓名") = drs1(i+1)("姓名")
                End If
            Next
[此贴子已经被作者于2020/7/3 10:53:19编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/3 20:28:00 [显示全部帖子]

　　比赛积分表棋赛名称222，第一轮已经生成9个人，但老人组表只显示4行，8个人，少了一个人，我改了一下不成功，应该红色部份有问题，请教这代码应怎么写呢？
        Dim qsmc As WinForm.ComboBox = e.Form.Controls("棋赛名称")
        Dim di1 As String = qsmc.Value
        Dim m As WinForm.TextBox = e.Form.Controls("第几轮")
        Dim di2 As String = m.Value
        Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")
        Dim di3 As Date = bsrq.Value
        If bsrq.text ="" Then
            messagebox.show("请选择日期")
            Return
        End If
        Dim fz As WinForm.ComboBox = e.Form.Controls("fenzhu")
        Dim Str As String = fz.Value
        Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'")
        Dim a As String = Cstr(Val(di2)-1)
        Dim i2 As Integer = 1
        Dim ii2 As Integer = 1
        Dim dts As List(of DataRow) = DataTables("基本信息").SQLSelect("[棋赛名称] = '" & di1 & "'And [身份] = '参赛人' And [分组] = '" & Str & "'")
        DataTables("比赛积分").DeleteFor("棋赛名称 is null and 第几轮比赛 is null And [分组] = '" & Str & "'")
        Dim cnt As Integer
        cnt = DataTables("比赛积分").Compute("Count([姓名])", "[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'")
        If di2 =1 And cnt = 0 Then
            Do While dts.Count > 0
                Dim idx As Integer = rand.Next(0,dts.Count)
                dr = DataTables("比赛积分").AddNew
                dr("排序") = math.Ceiling(i2 / 2)
                dr("日期") = di3
                dr("棋赛名称") = di1
                dr("第几轮比赛") = di2
                dr("编号") = dts(idx)("编号")
                dr("姓名") = dts(idx)("姓名")
                dr("轮赛次数值转换") = Val(di2)
                dr("分组") = Str
                dts.RemoveAt(idx)
                i2 + = 1
            Loop
            DataTables("比赛积分").Load
            DataTables("比赛积分").Save()
            DataTables("老人组").DataRows.Clear
             Dim drs1 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'","","日期 Desc,分组,排序 Desc")
            Dim i As Integer
            For i = 0 To drs1.Count Step 2
                Dim nr As DataRow = DataTables("老人组").AddNew
                If i + 1 <= drs1.Count
                    nr("桌号") = drs1(i)("排序")
                    nr("红方_编号") = drs1(i)("编号")
                    nr("红方_姓名") = drs1(i)("姓名")
                    nr("黑方_编号") = drs1(i+1)("编号")
                    nr("黑方_姓名") = drs1(i+1)("姓名")
                End If
                Dim count7 As Integer = DataTables("老人组").Compute("Count([姓名])","[红方_姓名]  Is Not Null")
                Dim count8 As Integer = DataTables("老人组").Compute("Count([姓名])","[黑方_姓名]  Is Not Null")
                If i = drs1.Count And count7 > count8 Then
                    nr("红方_编号") = drs1(i)("编号")
                    nr("红方_姓名") = drs1(i)("姓名")
                    nr("黑方_编号") = Nothing
                    nr("黑方_姓名") = Nothing
                End If
            Next

[此贴子已经被作者于2020/7/4 8:50:05编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/4 10:23:00 [显示全部帖子]

原来就是这样啊，没有了最后一个没对手的排座，我想了一下，能不能这样，只是想法，还不正确
 Dim drs1 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'","","日期 Desc,分组,排序 Desc")
            Dim i As Integer
            For i = 0 To drs1.Count
                Dim nr As DataRow = DataTables("老人组").AddNew
                If i = drs1.Count
                    If drs1.Count Mod 2 = 0 Then
                        nr("桌号") = drs1(i)("排序")
                        nr("红方_编号") = drs1(i)("编号")
                        nr("红方_姓名") = drs1(i)("姓名")
                        Dim count7 As Integer = 0
                        count7 + = 1
                        Continue For
                    End If
                    nr("黑方_编号") = drs1(i)("编号")
                    nr("黑方_姓名") = drs1(i)("姓名")
                    Dim count8 As Integer = 0
                    count8 + = 1
                End If
                If i = drs1.Count And count7 > count8 Then
                    Exit For
                End If
                nr("红方_编号") = drs1(i)("编号")
                nr("红方_姓名") = drs1(i)("姓名")
                nr("黑方_编号") = Nothing
                nr("黑方_姓名") = Nothing
            Next
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/4 10:24:00 [显示全部帖子]

有事要两天后再看了，两天后见，谢谢。

 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/5 23:52:00 [显示全部帖子]

以下是引用有点蓝在2020/7/4 9:50:00的发言：
            For i = 0 To drs1.Count Step 2
                Dim nr As DataRow = DataTables("老人组").AddNew

                    nr("桌号") = drs1(i)("排序")
                    nr("红方_编号") = drs1(i)("编号")
                    nr("红方_姓名") = drs1(i)("姓名")
                If i + 1 <= drs1.Count
                    nr("黑方_编号") = drs1(i+1)("编号")
                    nr("黑方_姓名") = drs1(i+1)("姓名")
                End If
你这段代码直接报错，不让保存。
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/6 8:34:00 [显示全部帖子]

改成这样不报错了
Dim drs1 As List(of DataRow) = DataTables("比赛积分").SQLSelect("[棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "'","","日期 Desc,分组,排序 Desc")
            Dim nr As DataRow
            For i As Integer = 0 To drs1.Count - 1
                If i <= drs1.Count And i Mod 2 = 0 Then
                    nr = DataTables("老人组").AddNew
                    nr("桌号") = drs1(i)("排序")
                    nr("红方_编号") = drs1(i)("编号")
                    nr("红方_姓名") = drs1(i)("姓名")
                ElseIf i <= drs1.Count And i Mod 2 = 1 Then
                    nr("黑方_编号") = drs1(i)("编号")
                    nr("黑方_姓名") = drs1(i)("姓名")
                End If
            Next

[此贴子已经被作者于2020/7/6 20:11:09编辑过]
 回到顶部
美女呀，离线，留言给我吧！
采菊东篱下
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1882 积分：10391 威望：0 精华：0 注册：2019/4/6 8:45:00 		  发帖心情 Post By：2020/7/6 9:07:00 [显示全部帖子]

　　其他在方没错，就是只要改动这代码才报错，我试过很多次了，因为最后一行对手为空，现在改为我这样写就不报错。

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