我想把整行向下移一行,这样只是drs3a(ia1+1)("编号")单元格的数据移一行吧?请教怎样实现整行移动?
Dim drs3a As List(of DataRow) = DataTables("比赛积分").SQLSelect("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "'And [第几轮比赛] = '" & di2 & "' And [分组] = '" & Str & "' And [排序] <> 0")
For ia1 As Integer = 0 To drs3a.Count - 1 Step 2
If ia1+1 < drs3a.count Then
For ia As Integer = 0 To drs2.Count - 1
Dim dr2a1 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And [排序] = " & drs2(ia)("排序") & " And ([编号] <> '" & drs2(ia)("编号") & "'or [姓名] <> '" & drs2(ia)("姓名") & "')")
If drs3a(ia1+1)("编号") = dr2a1("编号") Then
With drs3a(ia1+1)("编号")
.drs3a(ia1+1)("编号").Move(.Position + 1)
End With
End If
Next
End If
Next