جستجو در MSFlexGrid

[iran2008]

سلام
من چجوری میتونم تو ابزار MSFlexGrid جستجو کنم ؟

مثلا بخوام بر اساس یکی از ستون ها نامی رو جستجو کنم .
( یعنی کاری کنم که جدول فقط لیست مثلا کسانی رو که فقط ماشینشان پراید هست رو پیدا کنه یا ...)
خلاصه اونهایی که در جستجوی مورد نظر پیدا بشوند رو ردیف کنه.

مرسی که کمکم میکنید .:


http://tinypic.info/files/5px045vwovoa1xpn3qei.jpg

[3dboy1]

با سلام
برای جستجو در MSF راه های زیادی هست ، یک نمونش رو در زیر برات میزارم
البته فقط جستجو بر اساس نام :


Private Sub Command1_Click()
On Error GoTo ER
If Option1.Value = True Then
If Text1 <> "" Then
NewRem:
For r = 1 To MF.Rows - 1
If MF.TextMatrix(r, 1) <> Trim(Text1) Then
MF.RemoveItem r
GoTo NewRem
End If
Next r
End If
End If
ER:
End Sub

زحمت بقیش به گردن خودت
موفق باشی

[SAEID2009]

ببخشید ها...
من چند بار این سوروس رو تست کردم ولی جواب نداد از حلقه ایراد میگیره.
میشه ضمیمه کنید پروژه رو .
مرسی

[SAEID2009]

کسی نیست به من کمک کنه؟

[mostafa_bahar]

سلام
این و امتحان کن
Private Sub Command1_Click()
For i = 0 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 4 'sotoni ke mikhahi search koni
If MSFlexGrid1 <> "perid" Then
(MSFlexGrid1.RemoveItem (i
End If
Next i
End Sub

[SAEID2009]

سلام
این و امتحان کن
Private Sub Command1_Click()
For i = 0 To MSFlexGrid1.Rows - 1
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 4 'sotoni ke mikhahi search koni
If MSFlexGrid1 <> "perid" Then
(MSFlexGrid1.RemoveItem (i
End If
Next i
End Sub
ممنون
به احتمال زیاد مشکل از خودمه ممنون میشم این برنامه رو برام به صورت یک پروژه ضمیمه کنی.
بازم خیلی خیلی ممنونم

[SAEID2009]

ای خدا کسی نیست این سورس آقا مصطفی رو روی برنامه پیاده کنه؟

[xxxxx_xxxxx]

ای خدا کسی نیست این سورس آقا مصطفی رو روی برنامه پیاده کنه؟

چیزه دیگه ای هم می خواید؟ نون اضافه؟ نوشابه؟

[SAEID2009]

چیزه دیگه ای هم می خواید؟ نون اضافه؟ نوشابه؟
ببین دوست عزیز من نه نون اضافه میخوام نه نوشابه ولی وقتی تو قسمت ستون سرچ ارور میگیره من چیکار کنم؟؟؟
همه که مثل شما یک پا واسه خودشون استاد نیستند که...

[mostafa_bahar]

بیبین ستون سرچ رو خودت انتخاب کن چیز خاصی نیست بیشتر از ستون عددت باشه اررور می ده در مورد سطر هم همین طور

[mostafa_bahar]

For i = 0 To MSFlexGrid1.Rows - 1
If i = MSFlexGrid1.Rows Then
Exit Sub
End If
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 0 'sotoni ke mikhahi search koni
If MSFlexGrid1 <> "perid" Then
MSFlexGrid1.RemoveItem (i)
i = i - 1
End If
Next i

[Ati2008]

نمی دونم این قطعه برنامه که گذاشتم به دردتون می خوره یا نه. search توی MSFlexGrid و با SQL . خیلی آسونه ولی اگه سوالی در موردش بود می تونین بپرسین ...
امیدوارم مشکلتون حل شه ...:لبخندساده:

[xman_dj]

با چند تا select ساده میتونی این کارو انجام بدی باید حتما تو MSFlexGridجستجو کنی اول تو پایگاه داده جستجو کن بعد نتیجه رو به MSFlexGrid انتقال بده