جستجو ی 48 فیلد در listbox

[abbas.alizadeh]

سلام بچه ها من 48 فیلد دارم می خوام جستجو بنویسم اما نمی خوام واسه هر کدوم یه جستجو داشته باشم میشه یه listbox یا combobox چیزی گذاشت که انتخاب کنن و بر اساس اون فیلد انتخابی جستجو شه ؟؟؟؟
ممنون میشم راهنمایی کنید

[mohammadriano]

سلام
خب متغییر c مقدارات پیدا شده را می شمارد(مثلاً می تونیم بگیم C مورد پیدا شد)
البته بهتره یک data2 داشته باشیم که جستجوهای data رو توش ذخیره کنیم

dim s as variant
dim c=0 as integer
if combo.text <> "" then
s = combo.text
data.refresh
data2.refresh
while(data.recordset.eof <> true)
if combo.text = data.recordset.fields(s).value then
c=c+1
data2.recordset.addnew
data2.recordset.fields("").value = data.recordset.fields("").value
data2.recordset.fields("").value = data.recordset.fields("").value
data2.recordset.fields("").value = data.recordset.fields("").value
.
.
.
.
end if
wend
end if

موفق باشی

[abbas.alizadeh]

مرسی عزیز تقریبا گرفتم چی کار کنم فقط یه سوال دیگه داشتم

چه طوری میشه اطلاعت یه دیتا گرید رو چاپ کرد بدون چیز های اضافی فرم فقط اطالاعات دیتا گرید

[mohammadriano]

بهتره از گذارش گیری بانک اطلاعاتی استفاده کنید
82793
خب اگه برای شروع مقداری سخته می تونید دیتاگرید خودتون رو در یک فرم دیگه هم قرار بدبد و فقط از فرم جدید پرینت بگیرید

[abbas.alizadeh]

دیتا گرید 48 فیلد داره و اگه فرم رو پرینت کنم همه ی فیلد هاش چاپ نمیشه فقط اونایی چاپ میشه که همون لحضه نشون میده و بقیه رو باید بااسکرول دید اونایی که با اسکرول دیده میشه رو چی طوری چاپ کنم ؟

[mohammadriano]

خب دیتاگرید خودتون رو تا یک حد مشخص می تونید چاپ کنید مشکل فقط با گذارش گیری حل میشه
حالا باز هم اگه تعداد فیلدها کم باشه میشه یه کارهایی رو انجام داد
با این فایل می تونید دیتاگرید خودتون رو روی یک صفحه A4 چاپ کنید
http://s1.picofile.com/file/7305397739/Print_A4PrintingSolution_for_vb6.rar.html