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 , 控件