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