相信大家都听不懂你的话。 如果前提是msglexgrid 有记录的话 if msglexgrid.textMatrix(行,列) = " 字符 " then '(匹配条件 ) ............ else ..... endif
建议用MSHFlexGrid和ADOPublic Con As New ADODB.Connection Public Rs As ADODB.RecordsetPrivate Sub Form_Load() Dim sql As StringCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\デスクトップ\use.mdb;Persist Security Info=False"Set Rs = New ADODB.Recordset Rs.Open "select * from use", Con, adOpenStatic, adLockBatchOptimisticSet MSFlexGrid1.DataSource = Rs.Fields End Sub
修改: Public Con As New ADODB.Connection Public Rs As ADODB.RecordsetPrivate Sub Form_Load() Dim sql As StringCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\デスクトップ\use.mdb;Persist Security Info=False"Set Rs = New ADODB.Recordset Rs.Open "select * from use", Con, adOpenStatic, adLockBatchOptimisticSet MSHFlexGrid1.DataSource = Rs End Sub
如果前提是msglexgrid 有记录的话
if msglexgrid.textMatrix(行,列) = " 字符 " then '(匹配条件 )
............
else
.....
endif
Public Rs As ADODB.RecordsetPrivate Sub Form_Load()
Dim sql As StringCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\デスクトップ\use.mdb;Persist Security Info=False"Set Rs = New ADODB.Recordset
Rs.Open "select * from use", Con, adOpenStatic, adLockBatchOptimisticSet MSFlexGrid1.DataSource = Rs.Fields
End Sub
Public Con As New ADODB.Connection
Public Rs As ADODB.RecordsetPrivate Sub Form_Load()
Dim sql As StringCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\デスクトップ\use.mdb;Persist Security Info=False"Set Rs = New ADODB.Recordset
Rs.Open "select * from use", Con, adOpenStatic, adLockBatchOptimisticSet MSHFlexGrid1.DataSource = Rs
End Sub