一个msflexgrid的问题。

Question

请问，如何在msflexgrid中添加记录，包括标题行。

Answer 1

用MSHFlexGrid1控件    Dim CN   As New ADODB.Connection                '定义数据库的连接存放数据和代码
    Dim Rs   As New ADODB.Recordset    CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
    CN.Open    Rs.CursorLocation = adUseClient
    Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic    Set MSHFlexGrid1.DataSource = Rs

Answer 2

版主：
  你好！我初用vb还请多多帮助！
  我使用msflexgrid是因为我不需要用ado。具体情况是这样：我做的是一个游戏程序的管理界面，
和服务器通信后，对方会议一定的格式发来字符串内容。在我这边值需要将内容分开，分别添加到控件中就行了。msflexgrid不行吗？

Answer 3

Private Function display2()                      '显示数据到网格函数
On Error Resume Next    gridInput.Cols = 7
'************************************显示网格的字段名************************
    gridInput.ColWidth(0) = 1350
    gridInput.ColWidth(1) = 1200
    gridInput.ColWidth(2) = 1900
    gridInput.ColWidth(3) = 600
    gridInput.ColWidth(4) = 900
    gridInput.ColWidth(5) = 750
    gridInput.ColWidth(6) = 1000
 
'定义要的字段名到第一行！   
    gridInput.TextMatrix(0, 0) = "   日   期"
    gridInput.TextMatrix(0, 1) = "  种   类"
    gridInput.TextMatrix(0, 2) = "      规    格 "
    gridInput.TextMatrix(0, 3) = " 数 量"
    gridInput.TextMatrix(0, 4) = "  材 积"
    gridInput.TextMatrix(0, 5) = " 单  价"
    gridInput.TextMatrix(0, 6) = "  金  额"
    
    gridInput.Rows = 2
    rsInput.MoveFirst
'**************************************读取数据**************************
    Do While Not rsInput.EOF ' Loops until the Recordset is at end. (EOF = End Of File)
        gridInput.TextMatrix(gridInput.Rows - 1, 0) = rsInput.Fields(1).Value
        gridInput.TextMatrix(gridInput.Rows - 1, 1) = rsInput.Fields(2).Value
        gridInput.TextMatrix(gridInput.Rows - 1, 2) = rsInput.Fields(3).Value
        gridInput.TextMatrix(gridInput.Rows - 1, 3) = rsInput.Fields(4).Value
        gridInput.TextMatrix(gridInput.Rows - 1, 4) = rsInput.Fields(6).Value
        gridInput.TextMatrix(gridInput.Rows - 1, 5) = rsInput.Fields(7).Value
        gridInput.TextMatrix(gridInput.Rows - 1, 6) = rsInput.Fields(8).Value
        
        gridInput.Rows = gridInput.Rows + 1
        rsInput.MoveNext ' Remember to move to the next record.
    Loop
End Function    以上例子告诉你，你可以为msflexgird的每一个字段指定值
如：msflexgrid.TextMatrix(gridInput.Rows - 1, 0) ="350"  '或其他任何你想添加的值
也可以是msflexgrid.TextMatrix(gridInput.Rows - 1, 0)=text1.textmsflexgrid.TextMatrix(gridInput.Rows - 1, 0)  这是第一行（除字段名）第一列
msflexgrid.TextMatrix(gridInput.Rows - 1, 1)  这是第一行，第2列！
    ......依此类推

Answer 4

象这样：   MSFlexGrid1.Rows = 10
   MSFlexGrid1.Cols = 4
    
    MSFlexGrid1.TextMatrix(2, 2) = "a"
    MSFlexGrid1.TextMatrix(2, 1) = "a"
    MSFlexGrid1.TextMatrix(1, 2) = "a"
    MSFlexGrid1.TextMatrix(1, 1) = "a"

Answer 5

MSFlexGrid1.Rows = 10
   MSFlexGrid1.Cols = 4
    
    MSFlexGrid1.TextMatrix(2, 2) = "a"
    MSFlexGrid1.TextMatrix(2, 1) = "a"
    MSFlexGrid1.TextMatrix(1, 2) = "a"
    MSFlexGrid1.TextMatrix(1, 1) = "a"