2 u013034286 u013034286 于 2014.04.08 21:00 提问

模糊搜索,为什么只显示一条信息,代码如下,请各位大侠帮帮忙吧

Dim texts As String
Dim mrc As ADODB.Recordset
Set mrc = New ADODB.Recordset
Set mrc = ExecuteSQL(txtsql1)

'If mrc.EOF = False Then

With MSF1
.Rows = 22
.Row = 1
mrc.MoveFirst
Do While Not mrc.EOF

 For i = 1 To 2
   .TextMatrix(.Row, i) = mrc.Fields(i)
 Next i
 .TextMatrix(.Row, 0) = mrc.Fields(0)
  .Row = .Row + 1

mrc.MoveNext
Loop

End With

'End If

Set mrc = Nothing
Exit Sub
s2:
MSF1.Refresh
End Sub

Csdn user default icon
上传中...
上传图片
插入图片