:mshflexgrid控件非绑定实例
来源:百度文库 编辑:九乡新闻网 时间:2024/05/06 19:58:21
“工程”菜单(project)里边选“部件”(我用的是英文版的VB,中文的好像是“部件”,要不就是“组件”)
在弹出的对话框里找到
Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB)
选中,确定之后,在工具箱里就有表格控件了。
例程
Private Sub Command1_Click()
Set Conn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Conn.ConnectionString = "provider=msdaora;user id = hcs2000;password=lgwslgws;da
Conn.Open
Dim sql As String
sql = "Select * from AA"
Set Rs = Conn.Execute(sql) '建立记录集
Combo1.Clear
Combo2.Clear
Dim i As Integer
i = 1
MSHFlexGrid1.Rows = 15 '设置行数
MSHFlexGrid1.Cols = 5 '设置列数
Do While Not Rs.EOF
MSHFlexGrid1.Row = i '设置当前行数
MSHFlexGrid1.Col = 1 '设置当前列数
'k=MSHFlexGrid1.TextMatrix(10,10)
MSHFlexGrid1.ColWidth(1) = 2000 '表格列宽
MSHFlexGrid1.Text = Rs.Fields(0) '设置填充内容
MSHFlexGrid1.Col = 2
MSHFlexGrid1.ColWidth(2) = 500 '表格列宽
MSHFlexGrid1.Text = Rs.Fields(1)
i = i + 1
Rs.MoveNext
Loop
Conn.Close
End Sub