1187
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
s6w6k 2003-03-31
谢谢朋友们！！
我又有新的问题提出，也在数据库栏，希望大家帮助！！
我又有新的问题提出，也在数据库栏，希望大家帮助！！
s6w6k 2003-03-28
minajo21的方法：
1. mfg1.Col = mfg1.MouseCol 此句，常出现mfg1.Col实际的得数
mf为“mfg1.MouseCol+1”，我将其改为：m=mfg1.mousecol
mfg1.col=m
就能排序。
2.单击某一列，正常排序，（在此列后，单击某一列，也能正常排序），但，
在此列（此列为d，刚排序）前，单击某一列(此列为b)，就不能排序，mfg1.mousecol的值仍为上次
的值，mfg1.mousecol的值没有改变！请问如何解决??
1. mfg1.Col = mfg1.MouseCol 此句，常出现mfg1.Col实际的得数
mf为“mfg1.MouseCol+1”，我将其改为：m=mfg1.mousecol
mfg1.col=m
就能排序。
2.单击某一列，正常排序，（在此列后，单击某一列，也能正常排序），但，
在此列（此列为d，刚排序）前，单击某一列(此列为b)，就不能排序，mfg1.mousecol的值仍为上次
的值，mfg1.mousecol的值没有改变！请问如何解决??
chenyu5188 2003-03-25
同意楼上两位的方法。
jintianatxd 2003-03-25
除了楼上的,也可以用recordset(field).sort 来对recordset 排序,然后 msflexgrid.reflash 就行了
2sword 2003-03-24
在FLEXGRID的Click事件中加入：
if HFlex.mouserow=0 then
hflex.sort=1
endif
if HFlex.mouserow=0 then
hflex.sort=1
endif
minajo21 2003-03-24
当然，你也可以用SQL语句来重新打开记录集，重新填充表格
minajo21 2003-03-24
'其中select case 是根据内容的类型来排序
Private Sub mfg1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If y < mfg1.CellHeight Then
mfg1.Row = 0
mfg1.Col = mfg1.MouseCol
Select Case mfg1.Col
Case 1, 2, 3
mfg1.Sort = flexSortNumericAscending
Case 4
mfg1.Sort = flexSortGenericAscending
End Select
End If
End Sub
Private Sub mfg1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
If y < mfg1.CellHeight Then
mfg1.Row = 0
mfg1.Col = mfg1.MouseCol
Select Case mfg1.Col
Case 1, 2, 3
mfg1.Sort = flexSortNumericAscending
Case 4
mfg1.Sort = flexSortGenericAscending
End Select
End If
End Sub
点击MSFlexGrid数据控件的标题进行数据排序！ 在进行数据库编程的时候，...而MSFlexGrid控件本身没有这个功能，笔者经过实践，总结出了点击MSFlexGrid标题进行排序的方法，与大家一起分享。程序源码可以到本人的网站上下载：http://www.j2soft.cn/
MSFlexGrid强制整行实现表头排序（双向） ********************************************MSFlexGrid在强制整行选择的情况下实现表头排序功能：在单击表头时根据当前列进行排序，再次单 击反序排列。单击数据区域时进行整行选择2005-09-21 FieldMAX**********...
点击MSFlexGrid数据控件的标题进行数据排序 而MSFlexGrid控件本身没有这个功能，笔者经过实践，总结出了点击MSFlexGrid标题进行排序的方法，与大家一起分享。 先添加MSFlexGrid控件，方法：菜单－>工程－>部件－>Micros...
VB下双击MSFlexGrid表头实现排序的简单实例 内容索引:VB源码,报表打印,报表,排序 VB双击MSFlexGrid表头实现数据列表排序的简单实例，这种功能相信朋友们都见过了，这个实例本身也是早两年的，共享出来主要是想让初学者参考，代码简单，功能实用，用到...
双击MSFlexGrid表头实现排序下载 双击MSFlexGrid表头实现排序，，双击MSFlexGrid表头实现排序 相关下载链接：//download.csdn.net/download/wuqing_ku/2957074?utm_source=bbsseo
VB编程：利用数组设置MSFlexGrid表头和列宽-34 运行效果： 程序源码： ... MSFlexGrid1.Rows = 10 MSFlexGrid1.Cols = 6 s = Array("300", "1200", "1300", "1500", "1200", "1200"
MSFlexGrid表头排序的问题 我用了下面的排序方法，但是当向右移动滚动条之后，会出现下面的情况：比如单击了第20列的标头，就会出现排序在第16列上，这个应该怎么改啊 http://www.sudu.cn/info/html/edu/20080403/260213.html
利用Array函数设置MSFlexGrid表格控件的表头和列宽(VB6.0源代码编写) 利用Array函数设置MSFlexGrid表格控件的表头和列宽(VB6.0源代码编写) 利用Array函数设置MSFlexGrid表格控件的表头和列宽
如何实现点击msflexgrid表头可以自动排序？ vb5 + windows xp 窗体form1上放置了一个 msflexgrid，从外部导入数据到 msflexgrid 之后。 现在需要添加添加每一列表头的时候，将所有数据按照该列自动降序或者升序排列。 请问：这个功能怎么实现？谢了先！
利用Array函数设置MSFlexGrid表格控件的表头和列宽(VB6.0代码编写) 利用Array函数设置MSFlexGrid表格控件的表头和列宽(VB6.0代码编写) 利用Array函数设置MSFlexGrid表格控件的表头和列宽 QQ223857666勾月
VB编程：利用数组设置MSFlexGrid表头和列宽-34_彭世瑜_新浪博客 运行效果： 程序源码： Private Sub Form_Load() Dim i As Integer ... MSFlexGrid1.Rows = 10 MSFlexGrid1.Cols = 6 s = Array("300", "1200", "1300", "1500", "1200", "1200") '设置列宽 ...
vb msflexgrid MSFlexGrid控件显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。当与Data控件绑定时，MSFlexGrid控件只显示只读数据
两个MSFlexGrid的函数 点击表头排序函数以及依据内容自动调整列宽为最合适的宽度 MSHFLEXGRID也可以用的哦~Public Const STR_SORT_ASC = "△"Public Const STR_SORT_DESC = "▽"//排序函数Public Sub Sort(sgrd As MSHFlexGrid, y As Single) With sgrd If y >= .RowPos(0) And y (1)
MSFlexGrid网格数据排序问题请教 access数据库中tm_form表中有一列字符串pos，类似如下： A1-1，A1-2，A1-10，A1-3，A1-21，B1-3，B2-11 使用order by pos排序得到如下结果：、 A1-1 A1-10 A1-2 A1-21 A1-3 B1-3 B2-11 希望得到的结果：在网格中显示...
VB MSFlexGrid网格控件数据绑定方法 代码实例.rar VB MSFlexGrid网格控件绑定Combox,Check,ListBox等窗体常用元素的实例,利用MSFlexGrid做的单元格输入示例,演示如何在MSFlexGrid单元格中绑定下拉列表、复先框、单选框（Combox,Check,ListBox）等，以方便用户输入和...
