主题：想做一个排位表

DataTables("对阵表").DataRows.Clear

Dim bsrq As WinForm.DateTimePicker = e.Form.Controls("rq")

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 Integer = m.Value = 1

Dim di3 As Date = bsrq.Value

Dim all As Boolean = True

Dim ls As Integer = DataTables("基本信息").SQLGetValues("棋赛名称|姓名|身份", "[棋赛名称] = '" & di1 & "' And [姓名] Isnot Nothing And [身份] = '参赛人'").Count

'Dim ls As Integer = Select(count(*) fome {基本信息} wherh "棋赛名称 = '" & di1 & "' And [姓名] Isnot Nothing And [身份] = '参赛人'")

Dim dr As DataRow = DataTables("比赛积分").SQLfind("[棋赛名称] = '" & di1 & "'")

If DataTables("比赛积分").DataRows.count = 0 OrElse dr Is Nothing Then

    Dim ids1,ids2 As New List(of Integer) '用于存储洗牌前后的位置

    For i As Integer = 0 To ls -1 '准备初始的牌

        ids1.add(i)

    Next

    For i As Integer = 0 To ls - 1 '开始洗牌

        Dim idx As Integer = ids1(rand.Next(0,ids1.count))

        ids2.Add(idx)

        ids1.Remove(idx)

    Next

    DataTables("比赛积分").ReplaceFor("编号","","[棋赛名称] = '" & di1 & "'")

    For i As Integer = 0 To ls - 1 '100为要抽取的行数

        dr(ids2(i))("编号") = True

        dr(ids2(i))("棋赛名称") = di1

        dr(ids2(i))("第几轮比赛") = 1

    Next

    Dim ls1 As Integer = DataTables("比赛积分").SQLGetValues("棋赛名称|第几轮比赛", "棋赛名称 = '" & di1 & "' And 第几轮比赛 = 1'").Count

    For Each ds As DataRow In DataTables("对阵表").DataRows

        ds("桌号") = 0

        Dim di4 As Integer = ds("桌号")

        For i As Integer = 0 To ls1 - 1

            Dim n = 2

            If ls1 >= n Then

                Dim ls2 As new List(Of String)

                Do While ls2.count < n

                    ls2.add(dr(ids2(i))("编号")(ls1))

                Loop

                di4 = di4 + 1

                If ls2.count = 0 Then ds("红方_编号") = ls2(0)

                If ls2.count = 1 Then ds("黑方_编号") = ls2(1)

            End If

        Next

    Next

End If

DataTables("对阵表").Save()

我在对阵表窗口的随机号按钮中写入这段代码，意要按下按钮后弹出临时表，在临时表中生成随机号，这是符合指定棋赛名称，身份为参赛人的第1轮比赛随机号，但执行后报错！