我的例子是這樣的..
在查詢鈕的click裡寫完要查詢後要怎麼將查到的資料倒Grid裡呢??
麻煩前輩指導..thanks
我的程式碼如下:
Private Sub CmdShow_Click()
  Dim Qry, str As String
  Dim flexDemo As MSHFlexGrid
  Set re = New Recordset
  str = UCase(Text.Text)
  
  If CoboFieldCountYesNo Then
    If TxtBoxYesNo Then
      
      If Qry <> "" Then
        Qry = Qry & "and"
      End If
      
      Select Case CoboLike.ListIndex
        
        Case 0
        
          Qry = Qry & CoboField.Text & " = '" & _
            str & "'"
        
        Case 1
        
          Qry = Qry & CoboField.Text & " Like '" & _
            str & "*'"
            
        Case 2
        
          Qry = Qry & CoboField.Text & " Like '*" & _
            str & "*'"
      End Select
    
    
    re.Find Qry  '..........之後要怎麼寫呢??
           
    cmdRefresh.Enabled = True
  
  End If

End If

End Sub
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(1) 人氣()


留言列表 (1)

發表留言
  • PAN
  • With DataGrid1
    Set .DataSource = re
        .Columns(0).Width = 1100
        .Columns(1).Width = 1400
        .Columns(2).Width = 2400
        For i = 3 To rs.Fields.Count - 1
          .Columns(i).Width = 800
        Next
      
      End With
    加在查詢成功之後即可