我想在mshflexgrid的最后加一行，把各列的合计值写进去。可行否？如何做？

Question

刚学着用mshflexgrid,不知如何做好？
就是要把ado记录集绑定到msflesgrid上，在set mshflexgrid1.datasource =  rs后想在最后一行添加一行，把合列的合计值放进去。不知能否实现。如何实现，
最好能有几行代码参考一下。多谢谢了。

Answer 1

'用循环计算列合计的方法
dim tmp_a    as double
dim i        as long
with msflexgrid
    tmp_a=0
    for i=1 to .rows-1
        '假设第三列为要合计的列
        if .textmatrix(i,2)<>"" then tmp_a=tmp_a+cdbl(.textmatrix(i,2))    
    next i
    .rows=.rows+1
    .textmatrix(.rows-1,0)="合计"
    .textmatrix(.rows-1,2)=format(tmp_a,"###0.00")
end with

Answer 2

绑定后，为何用additem无法增加一行呢？

Answer 3

用mshflexgrid.TextMatrix(0, 3) = "####" 这个可以在mshflexgrid中增加.  其中(0,3)表示在mshflexgrid的单元格坐标!