主题：此表不支持移动行

 If e.Form.Controls("CheckBox2").Checked = True  Then ''如果垂直分组列被选中,则进行下面处理,确保合计行位于最后一行
           '移动合计行
          For Each r As Row In t.Rows
                If r("单位") = "合计"  And r.Index <> t.Rows.Count-1 Then
                   r.Move(t.Rows.Count-1)
                End If
          Next
      End If

 

sqlquery类型的表不支持移动行么

这个要在菜单中的“设置标志列”中设置一下

不太懂您的意思，

 

我是用交叉统计统计了两张表合并，都合计了 ，

 

但是水平分组不一样，合计行就跑到中间行了，应该是在最后一行，所以，我想把合计行移动到最后一行，用上面的代码实现，提示不能移动行

 

生成统计表以后，再加一列 _sortkey 列即可，如 http://www.foxtable.com/webhelp/scr/1428.htm

 

 

老师，你可能理解错了， 这个不是临时列的问题，是需要把合计行移动最后一行？临时列这里发挥啥作用呀？

有了这个临时列就可以移动行了

If e.Form.Controls("CheckBox2").Checked = True  Then ''如果垂直分组列被选中,则进行下面处理,确保合计行位于最后一行,首先需要添加临时列,否则不能移动行
           t.DataTable.DataCols.Add("temp", Gettype(Integer))
           '移动合计行
          For Each r As Row In t.Rows
                If r("单位") = "合计"  And r.Index <> t.Rows.Count-1 Then
                   r.Move(t.Rows.Count-1)
                End If
          Next
      End If

我加了临时列了，但是还是不可以？不能移动行

列名必须是_sortkey

老师，您说为啥我移上不管用，就是语句写了，但是实际没有移动

 

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

 

老师，就是这个倒数第三行的那个合计行，我想把它移动到最后一行

 

代码如下：

 

 If e.Form.Controls("CheckBox2").Checked = True  Then ''如果垂直分组列被选中,则进行下面处理,确保合计行位于最后一行,首先需要添加临时列,否则不能移动行
           t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))
           ''移动合计行
          For Each r As Row In t.Rows
                If r("单位") = "合计"  And r.Index <> t.Rows.Count-1 Then
                    MessageBox.Show(r.Index)
                    r.Move(t.Rows.Count-1)
                    MessageBox.Show(r.Index)
                End If
          Next
      End If

 

If e.Form.Controls("CheckBox2").Checked = True  Then ''如果垂直分组列被选中,则进行下面处理,确保合计行位于最后一行,首先需要添加临时列,否则不能移动行
    t.DataTable.DataCols.Add("_sortkey", Gettype(Decimal))
    ''移动合计行
    For Each r As Row In t.Rows
        r("_sortkey") = r.Index
        If r("单位") = "合计" Then
            r("_sortkey") = t.Rows.count
        End If
    Next
    t.sort = "_sortkey"
End If