MSHFlexGrid问题

Question

要怎么样子才能将选择的数据显示在MSHFlexGrid
      If Combo1.Enabled = True Then
        sql = "select * from ss where 楼号 like '" & Combo1.Text & "'"
       Set qsglczdb = sushe.Execute(sql)
       Do While Not qsglczdb.EOF
           On Error Resume Next
           Set MSHFlexGrid1.DataSource = qsglczdb.Source
           ....
       qsglczdb.MoveNext
           loop
      end if
我的显示不了

Answer 1

dim rs as new adodb.recordset
sql=" select * from ss where 楼号 like '%"& combo1.text &"%'"
if rs.state<>adstateclosed then rs.close
rs.open sql,conn,adopenkeyset,adlockreadonly
set mshflexgrid1.datasource=rs
rs.close

Answer 2

那SQL查询中不加条件试试：
sql=" select * from ss"

Answer 3

可以了,'"& combo1.text &"'   就这里改了下，就OK了

Answer 4

好像你没有设置要显示的字段，和你显示字段里面的内容，我也是新学，但是我的这个可以，你可以参考一下。
sql = "select * from 检测台出库"
MSFlexGrid2.Refresh
            sql = "select 品名,日期,单价,结余金额,货物余额,sum(金额) as 金额 from 检测台出库 " & _
            "group by 品名,日期,单价,结余金额,货物余额 order by 日期"
            rs_sum.CursorLocation = adUseClient
            rs_sum.Open sql, conn, adOpenKeyset, adLockPessimistic
            addup = 0
            MSFlexGrid2.MergeCells = flexMergeRestrictRows
            MSFlexGrid2.MergeCol(0) = True
            MSFlexGrid2.Rows = rs_sum.RecordCount + 2
            MSFlexGrid2.Rows = rs_sum.RecordCount + 2
            MSFlexGrid2.Cols = 6
            MSFlexGrid2.Row = 0
            MSFlexGrid2.Col = 0
            MSFlexGrid2.Text = "品名"           '这里设置你要显示的字段的名称
            MSFlexGrid2.Col = 1  
            MSFlexGrid2.Text = "单价"
            MSFlexGrid2.Col = 2
            MSFlexGrid2.Text = "货物余额"
            MSFlexGrid2.Col = 3
            MSFlexGrid2.Text = "金额"
            MSFlexGrid2.Col = 4
            MSFlexGrid2.Text = "结余金额"
            MSFlexGrid2.Col = 5  '增加显示字段
            MSFlexGrid2.Text = "日期"            If rs_sum.EOF = False Then
               rs_sum.MoveFirst
               Do While Not rs_sum.EOF
               
                        MSFlexGrid2.Row = MSFlexGrid2.Row + 1
                        MSFlexGrid2.Col = 0
                        MSFlexGrid2.Text = rs_sum.Fields("品名")         '这里设置你要显示字段里面的内容。我看你程序里面没有设置这个。
                        MSFlexGrid2.Col = 1
                        MSFlexGrid2.Text = rs_sum.Fields("单价")
                        MSFlexGrid2.Col = 2
                        MSFlexGrid2.Text = rs_sum.Fields("货物余额")
                        MSFlexGrid2.Col = 3
                        MSFlexGrid2.Text = rs_sum.Fields("金额")
                        MSFlexGrid2.Col = 4
                        MSFlexGrid2.Text = rs_sum.Fields("结余金额")
                        MSFlexGrid2.Col = 5
                        MSFlexGrid2.Text = rs_sum.Fields("日期")
           
                        addup = addup + CDbl(rs_sum.Fields("金额"))
                        rs_sum.MoveNext
               Loop
                        MSFlexGrid2.Row = MSFlexGrid2.Row + 1
                        MSFlexGrid2.Col = 0
                        MSFlexGrid2.Text = "(总计)"
                        MSFlexGrid2.Col = 2
                        MSFlexGrid2.Text = addup
            End If
            rs_sum.Close
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub