向下移一行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想设置上面生成的临时表，非开发者不可见，应在哪写代码？

http://www.foxtable.com/webhelp/topics/0836.htm

if User.Type <> UserTypeEnum.Developer

Forms("主窗口").Controls("TabControl1").Tabpages(mc1).Visible=false

此主题相关图片如下：qq图片20220125220011.png

我想选把排序为0的移到最后，有多少个0行就相应移动倒数的多少行，红色代码这样写并没反应。

With dt.Table

Dim ia00 As Integer = 1

For ia0 As Integer = .Rows.Count - 2 To 0 '最后一行本身不用移

If .Rows(ia0)("排序") = 0 Then

.Rows(ia0).Move(.Rows.Count - ia00)

End If

ia00 = ia00 + 1

.Save()

Dim tz1 As Integer = .Compute("Count(姓名)","[排序] = 0")

For ia1 As Integer = 0 To .rows.count - tz1 - 1 Step 2

If ia1+1 < .Rows.Count - tz1 - 1 Then

Dim dr2a1 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And ([编号] = '" & .Rows(ia1)("编号") & "'or [姓名] = '" & .Rows(ia1)("姓名") & "')")

Dim dr2a2 As DataRow = DataTables("比赛积分").SQLFind("[团体赛或个人赛] = '" & lx & "' And [棋赛名称] = '" & di1 & "' And [第几轮比赛] = '" & Cstr(Val(di2)-1) & "' And [分组] = '" & Str & "' And ([编号] = '" & .Rows(ia1+1)("编号") & "'or [姓名] = '" & .Rows(ia1+1)("姓名") & "')")

If dr2a1 IsNot Nothing And dr2a2 IsNot Nothing And dr2a1("排序") = dr2a2("排序") Then

.Rows(ia1+1).Move(ia1+2)

End If

.Save()

End With

.Rows(ia0).Move(.Rows.Count - 1)

排序为0的行是变量，可能有很多个，我才写成这样的。

不管有几个都会移到最后，改之后有什么问题?

完全没有移动

With dt.Table

For ia0 As Integer = .Rows.Count - 2 To 0

If .Rows(ia0)("排序") = 0 Then

.Rows(ia0).Move(.Rows.Count - 1)

End If

.Save()

Dim tz1 As Integer = .Compute("Count(姓名)","[排序] = 0")

For ia1 As Integer = 0 To .rows.count - tz1 - 1 Step 2

If ia1+1 < .Rows.Count - tz1 - 1 Then

If dr2a1 IsNot Nothing And dr2a2 IsNot Nothing And dr2a1("排序") = dr2a2("排序") Then

.Rows(ia1+1).Move(ia1+2)

End If

.Save()

End With

去掉第二段for循环看看，是不是后面又做了移动，把顺序搞乱了

注识了第2次循环也没有把排序＝0的行移动最后。

请上传实例说明

主题：向下移一行