15-08-13, 06:27 PM
sajad كتب :السلام عليكم
اخي العزيز تفضل
كود :
[color=#D4D4D4] [/color][color=#FF8811]Dim [/color][color=#D4D4D4] [/color][color=#C4C4C4]row[/color][color=#D4D4D4] = [/color][color=#C4C4C4]_mytable[/color][color=#D4D4D4].[/color][color=#C4C4C4]Select[/color][color=#D4D4D4]([/color][color=#FA8072]"fname = '"[/color][color=#D4D4D4] & [/color][color=#C4C4C4]txtsrch[/color][color=#D4D4D4].[/color][color=#C4C4C4]Text[/color][color=#D4D4D4] & [/color][color=#FA8072]"'"[/color][color=#D4D4D4]).[/color][color=#C4C4C4]GetValue[/color][color=#D4D4D4](0)[/color]
[color=#D4D4D4] [/color][color=#C4C4C4]txtname[/color][color=#D4D4D4].[/color][color=#C4C4C4]Text[/color][color=#D4D4D4] = [/color][color=#C4C4C4]row[/color][color=#D4D4D4]([/color][color=#FA8072]"fname"[/color][color=#D4D4D4])[/color]
[color=#D4D4D4] [/color][color=#C4C4C4]txtactivity[/color][color=#D4D4D4].[/color][color=#C4C4C4]Text[/color][color=#D4D4D4] = [/color][color=#C4C4C4]row[/color][color=#D4D4D4]([/color][color=#FA8072]"activity"[/color][color=#D4D4D4])[/color]
أضف زر جديد وبداخله اكتب الكود أعلاه
أما بالنسبة للبحث العام فيكون بهذا الشكل
كود :
[color=#FF8811]Dim [/color][color=#D4D4D4] [/color][color=#C4C4C4]row[/color][color=#D4D4D4] = [/color][color=#C4C4C4]_mytable[/color][color=#D4D4D4].[/color][color=#C4C4C4]Select[/color][color=#D4D4D4]([/color][color=#FA8072]"fname like '%"[/color][color=#D4D4D4] & [/color][color=#C4C4C4]txtsrch[/color][color=#D4D4D4].[/color][color=#C4C4C4]Text[/color][color=#D4D4D4] & [/color][color=#FA8072]"%'"[/color][color=#D4D4D4]).[/color][color=#C4C4C4]GetValue[/color][color=#D4D4D4](0)[/color]
[color=#D4D4D4] [/color][color=#C4C4C4]txtname[/color][color=#D4D4D4].[/color][color=#C4C4C4]Text[/color][color=#D4D4D4] = [/color][color=#C4C4C4]row[/color][color=#D4D4D4]([/color][color=#FA8072]"fname"[/color][color=#D4D4D4])[/color]
[color=#D4D4D4] [/color][color=#C4C4C4]txtactivity[/color][color=#D4D4D4].[/color][color=#C4C4C4]Text[/color][color=#D4D4D4] = [/color][color=#C4C4C4]row[/color][color=#D4D4D4]([/color][color=#FA8072]"activity"[/color][color=#D4D4D4])[/color]
اخي العزيز سجاد
انا اسف لكثرت اسالتى
ولكن اخي الكريم
بالنسبه للكود الذي وضعته
اولا شاهد صوره لقاعده البيانات
[ATTACH=CONFIG]3756[/ATTACH]
كما تلاحظ بانه كل سجل في الجدول الاول ممكن يحتوى على اكثر من سجل باقصى حد 13 سجل
بالنسبه للربط كما لاحظ الارقام بجوار كل سجل انا اريد ان اربط كل صف من السجلات بالصف المناسب لها كما في الشكل التالي
[ATTACH=CONFIG]3757[/ATTACH]
اما بالنسبه للكود الذي تكرمت ووضعته
كود :
Dim row = _mytable.Select("fname = '" & txtsrch.Text & "'").GetValue(0)
txtname.Text = row("fname")
txtactivity.Text = row("activity")ممكن تنفع هذي في الصف الاول من السجل ولكن كيف اربط مع الصف الثاني وهكذا " اعتقد لا بد من ان يتم ربطها عن طريق الكود او ما شابه ذلك"
اتنمى تكون الفكره وصلت
ولك جزيل الشكر
