set msflexgrid.datasource=data1.recordset(data1控件应该是ADO的数据控件)
我用的是dao,用楼上的方法也出错: 实时错误91,对象变量或with块未设置
>>msflexgridÊDz»Ö§³ÖadoµÄ£¡ £¿£¿£¿ Dim sConnect As String Dim sSQL As String Dim dfwConn As ADODB.Connection
sConnect = "DSN=xxx;UID=sa;PWD=xx;" sSQL = "select * from table1" Set dfwConn = New Connection dfwConn.Open sConnect Set datPrimaryRS = New Recordset datPrimaryRS.CursorLocation = adUseClient datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly Set MSHFlexGrid1.DataSource = datPrimaryRS
用mshflexgrid+ADO肯定比你现在那个组合好用. 先把mshflexgrid控件的数据源设成ADOtemp Adotemp.RecordSource = "select * from ……………………" Adotemp.Refresh 那么你的mshflexgrid地数据自动会更新的.
msflexgrid.datasource=data1
会出现错误:实时错误13,类型不匹配
实时错误91,对象变量或with块未设置
Dim sConnect As String
Dim sSQL As String
Dim dfwConn As ADODB.Connection
sConnect = "DSN=xxx;UID=sa;PWD=xx;"
sSQL = "select * from table1" Set dfwConn = New Connection
dfwConn.Open sConnect Set datPrimaryRS = New Recordset
datPrimaryRS.CursorLocation = adUseClient
datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly Set MSHFlexGrid1.DataSource = datPrimaryRS
先把mshflexgrid控件的数据源设成ADOtemp
Adotemp.RecordSource = "select * from ……………………"
Adotemp.Refresh
那么你的mshflexgrid地数据自动会更新的.
可是应该怎么用data控件和msflexgrid的组合来实现?