怎么添加msflexgrid控件

VB6.0可使用绑定到数据源、使用AddItem方法添加数据或逐一单元格添加数据，来向 MSFlexGrid控件添加数据。 1）使用绑定到数据源。 可使用ADODB数据源或Data控件绑定MSFlexGrid控件。 2）使用AddItem方法添加数据。 AddItem 方法 (MSHFlexGrid)，...

打开VB，点工程-部件，找到Microsoft FlexGrid Controls 6.0，点上对勾，确定，然后在控件栏就可以看到MSFlexGrid，点一下它，就可以在窗口上画出一个出来。

以下是一个例子，添加完控件以后运行单击窗体可以看到效果

Private Sub Form_Click()

Dim Entry, i, Msg '声明变量。

Msg = "Choose OK to add 100 items to your MSFlexGrid."

MsgBox Msg '显示消息。

MSFlexGrid1.Cols = 2 '每行有两个字符串。

For i = 1 To 100 '从 1 计数到 100。

Entry = "Entry " &Chr(9) &i '创建项。

MSFlexGrid1.AddItem Entry '添加项。

Next i

Msg = "Choose OK to remove every other entry."

MsgBox Msg '显示消息。

For i = 1 To 50 '决定怎样删除

MSFlexGrid1.RemoveItem i '其它每一项。

Next i

Msg = "Choose OK to clear all items."

MsgBox Msg '显示消息。

MSFlexGrid1.Clear '清除列表框。

End Sub

是否又是你在问这个问题了？

你连接的是否为Access 数据库？下面以Access 数据库为例子：

先看一下结果。

窗体中放置好各控件，Form_Load()增加如下的程序：

Private Sub Form_Load()

   With Data1

         .Connect = "Access"

         .DatabaseName = "D:\vbTemp\myDB.mdb"                         ‘数据库所在的全路径及名称

         .RecordSource = "SELECT  * FROM T101 ORDER BY F1"  '这里的T101是我用的表名称

         .Refresh                                                                                ’F1 是我用的字段名称

    End With

End Sub

“查询”按扭增加如下的程序：

Private Sub cmdFind_Click()    

    With Data1

      .RecordSource = "SELECT * FROM T101 WHERE F1 Like '" + Trim(txtCode) + "*'"

      .Refresh

    End With    

End Sub

1、添加 MSFlexGrid 控件：

“工程”->"部件"->"选择 Microsoft FlexGrid Control 6.0"->"确定"

2、Data 控件应该会设置吧

3、窗体上放置该控件，设置其 DataSource 属性=Data1

3、添加需要的程序

4、程序中的 "F1" 是我用字段名称，代表的是“错误编号”

5、查询中用 Like 语句可以获得相关的结果，也可以用 "=" 但后面不需要*“符号

"SELECT * FROM T101 WHERE F1 ='" + Trim(txtCode) + "'"

---