1,453
社区成员
发帖
与我相关
我的任务
分享如何能找到这样的一个显示数据库记录的控件。
1.可以像listview那样单击表头就可以排序。
2.有高亮度条（单击某条记录可高亮显示）。
3.双击可取得某条记录的具体值。（如：姓名......）
4.表头的颜色可以改变。
5.表头可居中，其内容可右对齐。
6.背景格的颜色也可以改变。
其中1,2,3可在listview里实现。456能实现吗？如能让高手指点。哪位知道有类似的控件也可发给我(everyemail@21cn.com)谢谢。
2.有高亮度条（单击某条记录可高亮显示）。
3.双击可取得某条记录的具体值。（如：姓名......）
4.表头的颜色可以改变。
5.表头可居中，其内容可右对齐。
6.背景格的颜色也可以改变。
其中1,2,3可在listview里实现。456能实现吗？如能让高手指点。哪位知道有类似的控件也可发给我(everyemail@21cn.com)谢谢。
...全文
请发表友善的回复…
发表回复
fanpingli 2002-12-05
- 打赏
- 举报
TrueDBGrid 6.0
fanpingli 2002-12-05
- 打赏
- 举报
可用TureDBGrid 6.0
xks 2002-12-04
- 打赏
- 举报
同意全楼的！（除了说up的）
我讨厌说up的
用dbgrid可以
我讨厌说up的
用dbgrid可以
stockt 2002-09-23
- 打赏
- 举报
up
stockt 2002-09-20
- 打赏
- 举报
up
stockt 2002-09-20
- 打赏
- 举报
up
jlt2000 2002-08-14
- 打赏
- 举报
VB有现成的控件啊！上面说的
every12555 2002-08-14
- 打赏
- 举报
everyemail@21cn.com给我也发一个，能附带上一个示例吗？
every12555 2002-08-14
- 打赏
- 举报
everylhb@21cn.com给我也发一个，能附带上一个示例吗？
zhangwh6882 2002-08-14
- 打赏
- 举报
zhangwh6882@sina.com
zhangwh6882 2002-08-14
- 打赏
- 举报
能给我也发一个么？我急需，谢谢
c9831112 2002-08-14
- 打赏
- 举报
能否发一个给我，我现在也正赶上急用。
every12555 2002-08-14
- 打赏
- 举报
squ1437您好，
感谢您的指点，能否将您的SPREAD 3.0 发到everyemail@21cn.com 信箱中，非常感谢！！
感谢您的指点，能否将您的SPREAD 3.0 发到everyemail@21cn.com 信箱中，非常感谢！！
squ1437 2002-08-14
- 打赏
- 举报
我有一个SPREAD 3.0的
很好的东西
很好的东西
every12555 2002-08-14
- 打赏
- 举报
有没有更好一点的。mshflexgrid点击后一列就变色了。左边还有一个无用的空列不让它变色，去掉无用的空列？
quickball 2002-08-14
- 打赏
- 举报
MSHFlexGrid 可以
c9831112 2002-08-14
- 打赏
- 举报
Private Sub Form_Load()
Dim i As Integer
frmsfxx.Caption = "身份信息表"
MSFlexGrid1.Appearance = flexFlat
MSFlexGrid1.Cols = 2
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "编号"
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.ColWidth(0) = MSFlexGrid1.ColWidth(0) - 500
MSFlexGrid1.ColWidth(1) = MSFlexGrid1.ColWidth(1) + 500
MSFlexGrid1.Text = "身份"
myset.Open "select [sfid],[sf] from [sfb] order by [sfid]", main.mycon, 3, 2
MSFlexGrid1.Rows = myset.RecordCount + 1
For i = 1 To myset.RecordCount
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = myset!sfid
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = myset!sf
myset.MoveNext
Next
End Sub
Private Sub Form_Resize()
frmsfxx.Left = 2400
frmsfxx.Top = 2920
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmxxdj.Enabled = True
myset.Close
Unload Me
End Sub
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.SetFocus
MSFlexGrid1.SelectionMode = flexSelectionByRow
End Sub
Private Sub MSFlexGrid1_DblClick()
frmxxdj.txtsf.Text = MSFlexGrid1.Text
'myset.Close
Unload frmsfxx
frmxxdj.txtsr.SetFocus
End Sub
Dim i As Integer
frmsfxx.Caption = "身份信息表"
MSFlexGrid1.Appearance = flexFlat
MSFlexGrid1.Cols = 2
MSFlexGrid1.Col = 0
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "编号"
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.ColWidth(0) = MSFlexGrid1.ColWidth(0) - 500
MSFlexGrid1.ColWidth(1) = MSFlexGrid1.ColWidth(1) + 500
MSFlexGrid1.Text = "身份"
myset.Open "select [sfid],[sf] from [sfb] order by [sfid]", main.mycon, 3, 2
MSFlexGrid1.Rows = myset.RecordCount + 1
For i = 1 To myset.RecordCount
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = myset!sfid
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = myset!sf
myset.MoveNext
Next
End Sub
Private Sub Form_Resize()
frmsfxx.Left = 2400
frmsfxx.Top = 2920
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmxxdj.Enabled = True
myset.Close
Unload Me
End Sub
Private Sub MSFlexGrid1_Click()
MSFlexGrid1.SetFocus
MSFlexGrid1.SelectionMode = flexSelectionByRow
End Sub
Private Sub MSFlexGrid1_DblClick()
frmxxdj.txtsf.Text = MSFlexGrid1.Text
'myset.Close
Unload frmsfxx
frmxxdj.txtsr.SetFocus
End Sub
every12555 2002-08-14
- 打赏
- 举报
能提供一个示例吗？
kmcyz 2002-08-14
- 打赏
- 举报
用API可实现4、5、6的效果，但是有点麻烦。
every12555 2002-08-14
- 打赏
- 举报
VSFlexGrid,mshflexgrid须有加载哪些组件？
加载更多回复（2）
