主题：此表不支持移动行

 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类型的表不支持移动行么

不太懂您的意思，

 

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

 

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

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

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

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

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

 

此主题相关图片如下：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

 

老师，您好厉害呀，

1、这个临时列需要删除么

2、这个列好像不是普通的临时列，作用好大呀？为啥？包括那个Decimal

 

您可以指点一下我么？