以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计表再操作  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88710)
--  作者：zhy400137
--  发布时间：2016/8/8 11:24:00
--  统计表再操作
老师，请教个问题，得出统计表后，想增加一行，其为第二行的70%的值，要如何写？

Dim dr1 As DataRow=DataTables("统计表1").find("[项目分类]= \'主营业务收入\'")
Dim dr2 As Row = Tables("统计表1").AddNew()
dr2(0)="手续费"
For i As Integer = 1 To  Tables("统计表1").Cols.count
    dr2(i) = dr1.DataCols(i)*0.7
Next

我这样写报错
--  作者：大红袍
--  发布时间：2016/8/8 11:27:00
--  
Dim dr1 As DataRow=DataTables("统计表1").find("[项目分类]= \'主营业务收入\'")
Dim dr2 As Row = Tables("统计表1").AddNew()
dr2(0)="手续费"
For i As Integer = 1 To  Tables("统计表1").Cols.count-1
    dr2(i) = dr1(Tables("统计表1").Cols(i).name) * 0.7
Next
--  作者：zhy400137
--  发布时间：2016/8/8 11:30:00
--  
受教了，谢谢！
--  作者：zhy400137
--  发布时间：2016/8/8 11:34:00
--  
另外，生成的统计表，可以移动行的顺序吗？我用MOVE不可以
--  作者：大红袍
--  发布时间：2016/8/8 11:47:00
--  

Dim t As Table = Tables("统计表1")
If t.DataTable.Datacols.Contains("_Sortkey") = False Then t.DataTable.DataCols.Add("_Sortkey", Gettype(Double))
t.rows(0).move(2)

t.sort = "_Sortkey"
t.sort = ""