关于mshflexgrid控件的问题？谢谢指点！！

2004-10-24 11:36:08 177 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MSHFlexGrid控件前言：这个控件，看上去十分的简单，就是个显示数据的表格，而已，其实，它还真没少让我头疼。头疼在哪里，就在它那深不可测的属性上猪骨汤：学生基本信息维护的窗体中，在进行，选中数据进行修改时，确实遇到了挠头的事情。本身选中一行就有点儿迷，但经过查找，站在巨人肩膀上，哈哈，能够解决，也弄明白了。但经过多次试验，起初是选不中，觉得可能是控件属性的问题，但不知是哪个，就试了... 阅读详情

请问mshflexgrid控件怎样与ado控件动态绑定？
同时mshflexgrid控件怎么用书写代码来改变列宽？
请智者指点...

...全文

MSHFlexGrid控件设置合并后的选中突出显示一行的问题最近开发一个程序，在C#中用到了以前VB6中的 MSHFlexGrid控件，用的原因只有一个，就是可以很简单的合并单元格，关于怎么合并，我在以前帖子中将过，详细见http://blog.csdn.net/yumanqing/archive/2006/12/22/1453633.aspx下面把选中突出显示的代码帖出来；窗体级别变量，主要是记录下次选中时，前一次选中的行 private 阅读详情

liuwangxin

数据库(包含打印，安装，报表) 1,217 成员 55,949 内容

+ 关注 + 加入社区

切换为时间正序

风之浪漫 2004-10-24

打赏
举报

动态填充Msflexgrid,这个是VB。NET的代码，你自已改一下吧!~
调用时，在FillMsGrid 的后边要加上你所用的Msflexgrid的名称,及Recordset名称

Public Sub FillMsGrid(ByVal MSGrid As MSFlexGridLib.AxMSFlexGrid, ByVal rs As ADODB.Recordset) '数据库全部填充到表格中
Dim rCount As Integer
Dim i As Integer
Dim j As Integer
Dim cCount As Integer
cCount = rs.Fields.Count
rCount = rs.recordcount
With MSGrid
'设置行数
If rCount = 0 Then
.Rows = 1
Else
.Rows = rCount + 1
End If
'设置列数
.Cols = cCount
'设置固定列的名及对齐方式
For i = 0 To cCount - 1
.set_ColAlignment(i, 1)
.set_TextMatrix(0, i, rs(i).Name)
Next
'将数据库中的数据导入到表格中
j = 1
Do While Not rs.EOF
For i = 0 To cCount - 1
.set_TextMatrix(j, i, CStr(rs(i).Value))
Next
rs.MoveNext()
j = j + 1
Loop
End With
End Sub

daisy8675 2004-10-24

打赏
举报

Option Explicit

Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection

Public Sub Make_Connection()
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\People.mdb;Persist Security Info=False"

Conn.CursorLocation = adUseClient
Conn.Open strConn

End Sub

Private Sub Form_Load()
Call Make_Connection

If Rs.State <> adStateClosed Then Rs.Close
Rs.Open "Select * from Man", Conn, adOpenStatic, adLockOptimistic

Set Me.MSHFlexGrid1.DataSource = Rs

With Me.MSHFlexGrid1
.ColWidth(1) = 500
.ColWidth(2) = 600
End With
End Sub

风之浪漫 2004-10-24

打赏
举报

1 ...MSFLEXGRID不能和ADO控件绑定。
但可以用代码实现1~

2。改变列宽：msflexgrid1.ColWidth (i)=2222

关于mshflexgrid控件的问题？谢谢指点！！

相关推荐