Question

请教：VB中mshflexgrid控件如何实现条件查询显示

VB中mshflexgrid控件如何实现条件查询并显示，
下面是COMMAND1的chick事件
打开ACCESS数据库后
Set rs = New ADODB.Recordset
rs.CursorType = adOpenStatic
rs.CursorLocation = adOpenDynamic
rs.LockType = adLockOptimistic
rs.ActiveConnection = conn
rs.Source = "select * from yinshua where 工程单号 = '& Text7.Text&'"
Set MSHFlexGrid1.DataSource = rs
TEXT7.TEXT中数据数据后
单击COMMAND1，没有报错，也没有显示对应的工程单号，
请教哪位大侠··帮帮忙··

Answer 1

rs.Source = “select * from yinshua where 工程单号 = '”& Text7.Text & “'”

再看看返回的结果是不是空的？也就是根本没有内容可显示

在Set MSHFlexGrid1.DataSource = rs之前加上

Set MSHFlexGrid1.DataSource = nothing
试试