MSFlexGrid的用法

Question

各位哥哥：
    我现在在ACCESS数据库里面建了几个表，现在想用MSFlexGrid控件显示出来，请问应该怎么做啊？
我看有的朋友先设置控件的宽度什么的。还有就是我想显示表中的一些内容，不是全选出来，比如：
表中有以下几个内容：
时间：11 地点：22 人物：33 我想显示其中的时间和地点，应该怎么用程序写啊？谢谢各位啦

Answer 1

这段代码只是显示时用的，它的题目和长、宽都需要自己设定的
Public Function Ini_Title(mshgJK As MSHFlexGrid) As Integer
Dim intCol As Integer
Ini_Title = -1
With mshgJK
    .TextMatrix(0, 0) = "选择"
    .TextMatrix(0, 1) = "  违法" & vbCrLf & "  行为"
    .ColWidth(0) = 500
    .ColWidth(1) = 1000
    .MergeCells = flexMergeFree
    .MergeCol(1) = True
    .ColAlignment(0) = 4
    For intCol = 0 To .Cols - 2
        .ColAlignment(intCol + 1) = 1
    Next intCol
    .RowHeight(0) = 500
    End With
Ini_Title = 1
End Function

Answer 2

Option ExplicitPublic Conn As New ADODb.Connection
Public Rs As New ADODb.RecordsetPrivate Sub Form_Load()
    Dim strConn As String
    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\aa.mdb;Persist Security Info=False"
    Conn.CursorLocation = adUseClient
    Conn.Open strConn    Call LoadData
End Sub'载入数据进入msflexgrid
Public Sub LoadData()
    '初始化msflexgrid
    With Me.MSFlexGrid1
        .Clear
        .Cols = 5
        .Rows = 1
    End With
    If Rs.State = 1 Then Rs.Close
    Rs.Open "Select * from jobs", Conn, 3, 3
   
   '加入数据并且显示表中指定的3个ID内容
    Do While Not Rs.EOF        Me.MSFlexGrid1.AddItem Me.MSFlexGrid1.Rows & Chr(9) _
                               & Trim(Rs("job_id") & "") & Chr(9) _
                               & Trim(Rs("job_desc") & "") & Chr(9) _
                               & Trim(Rs("min_lvl") & "")
        Rs.MoveNext
    LoopEnd Sub这个最简单的加入方法。至于msflexgrid的其他属性参考MSDN

Answer 3

ACCESS数据要显示可以考虑用data控键来绑定。在data中设定databasename，recordsource中选中相应的表。msfgrid中设定一下datasouce为data按键名就行了 如果你想用这种方式来做，要想过滤数据可以在access中建立视图来过滤掉不要的字段。
或者用with 记录集名
msflexgrid1.TextMatrix(0, 0) = .field("地点")
msflexgrid1.TextMatrix(0, 1) = .field(" 时间")end with
MSFlexGrid的不能将记录集直接绑定。所以想实现见意用mshflexgrid

Answer 4

FormatString 属性包含由管道字符 (|) 分隔的段。管道字符之间的文本定义一列并且也可能包含特定的对齐字符。这些字符使整个列左对齐(<)、居中(^)或右对齐(>)。另外，根据缺省规定文本被指定给行 0，且文本宽度定义每一列的宽度 
   With MSFlexGrid   
        .FormatString = "|人物|>地址|>时间|"
        .Cols = 4
        .ColWidth(1) = 1500
        .ColWidth(2) = 1500
        .ColWidth(3) = 1000
      
        
   End With
这是对列的设定

Answer 5

 daisy8675(莫依)
不好意思，能说明白一点好吗，
我的方法很不好用吗？
谢谢指点

Answer 6

很简单，你知道data控件一般只支持access97，这个控件几乎被抛弃了，如果论控件对比，它比不上adodcdata控件 的访问方式是dao
adodc控件的方式是ado我在access中国看见过一种言论，dao访问access要比ado要好，这个我没有去测试，因为一般情况下都使用ado.在数据访问，控件相反束缚了我们的手脚，所以我们可以自己使用ado对象访问，msdn有专门的ado帮助文件，可以参考所以说你的方法不对是因为:1,用data控件如果是office2K3可能无法访问。2、就算用控件也是adodc
3、能用对象就不要用控件。4，本来很简单的代码，被你写得这个帮下来个帮下，头都看大了。:P意见我提出来，8介意^^

Answer 7

哈哈
是这样，但我知道的对于msflexgrid1的绑定就只有用这种了。
在你那我学到很多。
谢谢