MSHFlexGrid1与 MSFlexGrid1控件有什么差别????一个简单的数据库连接显示: 用“MSHFlexGrid1”能显示,而用“MSFlexGrid1”不能显示????怎样用MSFlexGrid1实现??谢谢,高手不吝赐教!!!!
程序如下:
Private Sub Form_Load() Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB" rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.ColWidth(0) = 0 '返回或设置指定带区中的列宽(上面两句中,能否直接将控件改为MSFlexGrid1实现???)
rs.Close
cn.Close Set rs = Nothing
Set cn = Nothing
End Sub
程序如下:
Private Sub Form_Load() Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB" rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic Set MSHFlexGrid1.DataSource = rs MSHFlexGrid1.ColWidth(0) = 0 '返回或设置指定带区中的列宽(上面两句中,能否直接将控件改为MSFlexGrid1实现???)
rs.Close
cn.Close Set rs = Nothing
Set cn = Nothing
End Sub
rs.Close
cn.Close Set rs = Nothing
Set cn = Nothing
试试
MSFlexGrid1.ColWidth(0) = 0 以上这样可以不过msflexgrid没有区带,不支持层次结构记录集。
Set MSFlexGrid1.DataSource = rs
MSFlexGrid1.ColWidth(0) = 0
没有实现,报“对象变量错误或WITH 块变量未设置”
没有实现,高人,报“对象变量错误或WITH 块变量未设置”