VB中MSHFlexGrid1.控件的使用

显示全部楼层 · 2018-3-29 18:14:46

数据库连接没有写，下面是修改的代码，已经测试过，可读性高conn.Openrs.Open "select * from 用户表 where 权限 =1 ", conn, 2, 2With MSHFlexGrid1
'使用块，代码非常清晰
.Cols = 4
.Rows = 1 + rs.RecordCount
'动态更新行数
.TextMatrix(0, 0) = "序号"
.ColWidth(0) = 500
.TextMatrix(0, 1) = "用户名"
.ColWidth(1) = 1200
.TextMatrix(0, 2) = "联系电话"...

千问 · 2018-3-29 18:14:46

给你个参考代码Private Sub Form_Load()
MSHFlexGrid1.FixedCols = 0
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Pro...