PDA

View Full Version : سوال: Cellchanged _ Vsflexgrid



Chalki
پنج شنبه 12 مهر 1397, 16:14 عصر
سلام
میخواهم در یکی از سل های vs در زمان ویرایش عمل جستجو انجام بگیره کد جستجو رو در cellchanded
نوشتم اما زمانی جواب میده که روی سل دیگه کلیک کنم
لطفاً اگر راه حلی است اساتید محترم کمک کنند. متشکرم

Chalki
یک شنبه 15 مهر 1397, 01:40 صبح
سلام
جوابو پیدا کردم می‌نویسم تا دوستان استفاده کنند ضمنا خواهشم اینه اگر کسی روش بهتری رو داره درج کنید تا استفاده کنیم . واما جواب:
میخواهیم همزمان با ویرایش ستون یک فلکس گرید عمل جستجو در پایگاه داده انجام بشه، برای این منظور
بشرح زیر عمل میکنیم.
_ یک تکست باکس روی فرم قرار داده ،visible تکست را را false کنید.
_ کد زیر را در sub زیر بنویسید
(.......)Private sb Vsflex_startEdit
" " = If col <> 1 then text1.text
End sub
_ کد زیر را در روال keypress فلکس وارد کنید.
(......)Privte sub vsflex_ keypressEdit
Select case col
Case 1
_ )$KeyAscii =Asc (ucas
_ )$Chr)
(((KeyAscii
(Cher = chr (keyAscii
Text1.text=text1.text & cher
End sub
کد های زیر الزام نداره اما اگه استفاده بشه زمان حذف
سل فلکس گراید متن تکست هم همزمان
پاک میشه .
در روال keyDown فرم کد زیر:
If keycode=vbkeydelete then
" " =Text1.text
_ در روال keypress فرم کد زیر:
_If keyascii =8 And len
Text1.text)>0)
=Then text1.text
(1-(Mid (text1,1,len(text1
End if
End sub

در خاصیت change تکست هم کد جستجو پایگاه داده رو بنویسید.
دوستان متن تنظیمی رو مرور نکردم اگر اشتباهی داشت ببخشید ، ضمنا کدها رو بسختی تایپ کردم .