MSFlexGrid Keyword Filtering

Expand Post »

Hello everybody.. I have a form in my project, that's having a Grd name MSFlexGrid and a Data1. Besides, it also have a cmdCalculate and cmdExit button. Their codes are below.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
 
Private Sub cmdCalculate_Click()
 
Dim i As Integer
Dim TAmt As Currency
 
      TAmt = 0
      For i = 1 To Grd.Rows - 1
         TAmt = TAmt + Val(Grd.TextMatrix(i, 6))
      Next
      TAmt = Val(txtBudget09.Text) - TAmt
      txtBalance.Text = Format(TAmt, "0.00")
 
End Sub
 
Private Sub cmdCalculate_Click()

Dim i As Integer
Dim TAmt As Currency

      TAmt = 0
      For i = 1 To Grd.Rows - 1
         TAmt = TAmt + Val(Grd.TextMatrix(i, 6))
      Next
      TAmt = Val(txtBudget09.Text) - TAmt
      txtBalance.Text = Format(TAmt, "0.00")
           
End Sub

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub cmdExit_Click()
Data1.UpdateControls
Unload Me
Form7.Show
End Sub
Private Sub cmdExit_Click()
Data1.UpdateControls
Unload Me
Form7.Show
End Sub

Above are only my descriptions of my form. My real problem is, I need to do some filtering to the Data1 shown in MSFlexGrid (Grd namely), so that it only shows the data of keyword that i need. For example, the keyword "Medical". Do i need to add a Combo1 on the form, and some codings? Could u Geeks plz give me the codes? Plz help me..

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

Permalink

Mar 12th, 2009

Re: MSFlexGrid Keyword Filtering

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
 
Private Sub cmdPapar_Click()
If optall.Value = True Then
Data1.RecordSource = "SELECT Hari, Bulan, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan"
Data1.Refresh
Grd.Visible = True
Else
Data1.RecordSource = "SELECT Hari, Bulan, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan where Hari = " & " '" & txtHari & "'"
Data1.Refresh
Grd.Visible = True
End If
End Sub
 
Private Sub cmdPapar_Click()
If optall.Value = True Then
Data1.RecordSource = "SELECT Hari, Bulan, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan"
Data1.Refresh
Grd.Visible = True
Else
Data1.RecordSource = "SELECT Hari, Bulan, ID, Kategori, Status, Jumlah_lulus, Nama FROM permohonan where Hari = " & " '" & txtHari & "'"
Data1.Refresh
Grd.Visible = True
End If
End Sub

I've got this, and applied it, and it works! But, could anybody show me, how to do double filtering simultaneously? Plz....

nor_d83

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

28 posts
since Aug 2008

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Query date range help pls...

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: need help with my game.

DaniWeb Message

Cancel Changes

User Name
Password