اشکال در فرم ویرایش بعداز دوبار کلیک بر datagird

[mm_ley]

با سلام به دوستان

من یه دیتا گرید و دو تا تکست باکی برای جستجو توی یک فرم
گذاشتم ( پیوست 1)

حال وقتی نتایج جستجو را می بینم وفتی دوبار بر روی هریک از سطر ها کلیک کنم

در پنچره دیگر اطلاعات شخص دیگر نشان داده میشه برای ویرایش

مثلا نتیجه جستجو محمدی است به رنگ زرد مشخص است وقتی دوبار روی ان کلیک می کنم قربانی به نمایش در میآید (پیوست 2)

کد ها را هم می ذازم اشکال از کجاست؟

کد جستجو : ( توی notpad درست ببینید)
Private Sub Command3_Click()
With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\senf.mdb;Persist Security Info=False;"
'.CommandType = adCmdText
.RecordSource = "select * from aza where family='" & Text1.Text & "' "
.Refresh


End With
Set DataGrid1.DataSource = Adodc1
End Sub


کد دوبار کلیک بر روی سطر دیتا گرید

Private Sub DataGrid1_DblClick()
edit.Show
edit.Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition
searchedit.DataGrid1.Refresh
End Sub

[mm_ley]

اساتید کسی نیست کمک کنه

[Rink8]

با سلام

اساتید کسی نیست کمک کنه

شما فایل برنامه نویسی را آپلود کنید تا بهتر بتوانیم رفع اشکال کنیم.

موفق باشید.

[mm_ley]

دوست خوب کدها رو گذاشتم اشکال در همین کد هستش

[web30t]

دوست خوب کدها رو گذاشتم اشکال در همین کد هستش

دوست عزیز همونطور که Rink8 گفت باید فایل برنامه نویسی رو آپلود کنی تا بیبینیم که اشکال از کجاست. مثلا همین searchedit چیه؟ فرم ه؟ کمند ه؟ آیا searchedit همون edit ه؟

(در گوشی: فکر کنم شما به دلیل اینکه داری یه نرم افزار برای یه صنف (فکر کنم صنف تولیدی باشه) می نویسی ، نمی خوای کسی سورس کد رو بدونه. این طور نیست؟ اگه این طوره نگران نباش! نمی خوام کارتو بی ارزش جلوه بدم ولی تو اینترنت انقدر سورس کد هست که نخوایم کپی کنیم. )

[mm_ley]

نه دوست خوبم اینجوری نیست تمام فایل را براتون پیوست می کنم

فقط اگه میشه زودتر پاسخ دهید چوتن تا آخر سال باید تحویل بدم


راستی کد ورود فعلن برای برنامه نمی خواد


توی d:\senf کپی کنید

[mm_ley]

دوستان پس کجائید؟

[far_222000]

خب معلومه دیگه. وقتی روی دیتاگرید کلیک می کنیم، شما نوشتین:

کد:

edit.Show
edit.Adodc1.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition
searchedit.DataGrid1.Refresh

از AbsolutePosition استفاده کردی، در حالی که چیزی که ما توی دیتاگرید سلکت می کنیم، AbsolutePosition نیست.
فرض کنین، ما 3 تا رکورد داریم. که به ترتیب، "الف"، "ب" و "پ" هستن. فرض کنین وقتی Search می کنیم، "ب" و "پ" رو میاره! حالا ما روی "ب" کلیک می کنیم، AbsolutePosition می شه 1، که ماله "الف" هستش!!!!

اگه می خوای خیلی تغییر توی برنامت ندی، باید یه Field اضافه کنی به نام ID، که توش شماره رکورد ها بخوره. حالا AbsolutePosition رو مساوی فیلد ID قرار می دی.
اگه بازم توی این مسئله مشکل داشتی، بگو سورستو درست کنم واست بذارم(فقط میوفته اون ور سال)

[mm_ley]

اگه زحمتی نیست این کد را برام درست کنید

اگه این ور سال باشه خیلی ممنون میشم ( عیدی من)

[mm_ley]

دوستان یه کمکی

سال داره تحویل میشه

[far_222000]

اینم عیدی شما:
توی فرم searchedit، توی رویداد DataGrid1_DblClick بالای تمام دستورات بنویسین:

کد:

edit.Adodc1.CommandType = adCmdText
edit.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\senf.mdb;Persist Security Info=False;"
edit.Adodc1.RecordSource = Adodc1.RecordSource
edit.Adodc1.Refresh

درست می شه!!!!