当前位置:编程学习 > VB >>

MSHFLEXGRID如何才能使最后一行固定

看见一些软件的,在列表中的最后一行是固定的,无论下拉条怎行增加行,或是删除行,他的最后一行数据总能固定在那个位置上。
不知这是如何实现的?
比如      商品    数量   单价   金额
-------------------------------------
         001     1     10     10
-------------------------------------
合计:             1       10   10
合计这一行,总是能固定在这最后一行的下面。这要怎么实现呀? --------------------编程问答-------------------- 这个我很早前就研究过了~~~
很可惜,不成功~~~~~好象没有这功能! --------------------编程问答-------------------- 楼主可以这样试试:
用两个mshflexgrid控件,将一个叠在另一个上面,显显示最后一行 --------------------编程问答-------------------- //*记号*// --------------------编程问答-------------------- 这个我们的ERP系统有,
不过我们是用2个DataGrid做的
1个没做过 --------------------编程问答-------------------- 就是啊,如果固定行在上面的就行 --------------------编程问答-------------------- 你照我的步骤: (trec是记录总笔数)

1.trec=rs.recordcount

2.MSFlexGrid1.rows = trecord + 2 '标题占一行,最后合计要再多一行,所以总笔数加2
  MSFlexGrid1.Cols = 6

3.'列出所有数据
Private Sub Showall()  
   rs.MoveFirst
   For i = 0 To trecord - 1
      MSFlexGrid1.Row = i + 1
      For j = 0 To MSFlexGrid1.Cols - 1
         MSFlexGrid1.Col = j
         MSFlexGrid1.Text = IIf(Trim(rs.Fields(j)) <> "", rs.Fields(j), "")
      Next j
      rs.MoveNext
   Next i
   MSFlexGrid1.Row = trecord + 1
   MSFlexGrid1.Col = 1
   MSFlexGrid1.Text = "合计:"
   For i = 0 To MSFlexGrid1.Cols - 1
      MSFlexGrid1.Col = i
      MSFlexGrid1.CellBackColor = QBColor(2)
   Next i
   rs.MoveFirst
   MSFlexGrid1.Row = 1: MSFlexGrid1.Col = 0: MSFlexGrid1.TopRow = 1
End Sub


效果图:
http://p.blog.csdn.net/images/p_blog_csdn_net/cbm666/366646/o_Msflex.jpg

--------------------编程问答-------------------- 楼上错了吧,楼主的意思是要最后一行固定就象第一行一样。你的貌似不能固定吧。用2个GRID来得简单了 --------------------编程问答-------------------- 呵呵,楼上的, 方法已告诉你了, 你可以随时在scroll有动作时加上

MSFlexGrid1.Row = 你这个Msflexgrid平常最多能见几行加上1 
MSFlexGrid1.Col = 1 
MSFlexGrid1.Text = "合计:" 


补充:VB ,  控件
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,