السلام عليكم
عندي فورم فيه مجموعة من التكست بوكس عددها اكثر من 40 مقسمة الى ثلاثة اسطر واريد ان املأ هذه التكسات بوكس من جدول بحيث السجل الأول يملأ الصف الاول من التكسات بوكس و السجل الثاني يملأ الصف الثاني و السجل الثالث يملأ الصف الثالث ,
عدد التكسات هو نفسه في كل سطر ,
واريد ان استعمل زري التنقل التالي و السابق للتنقل بين السجلات بحيث يتم الزيادة بثلاث سجلات كي لا يتكرر اي سجل
هل هده الفكرة يمكن تحقيقها ؟؟؟؟
جزاكم الله خيرا
استخدم التاتي جريد افضل واسرع واسهل في التعامل
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); يمكنك عمل ذلك ولكن هناك Control جاهز يمكنك من عرض البيانات في مثل الشكل الذي تصفه أسمه Datagridview أو بالعربي "عارض البيانات في سطور"
وهذا مثال على كيفية عمل واحد بسهولة (حتى بدون كود)
بالنسبة للأسلوب اليدوي (برمجة) يمكنك عمل ذلك ولكنك بحاجة إلى Query يعتمد على Primary key ولنفرض بأنك تمتلك Table على الـ Database يحتوي الحقول التالية:
create table myData(
id integer ,
f1 nvarchar(50),
f2 nvarchar(50),
f3 nvarchar(50),
f4 nvarchar(50),
f5 nvarchar(50),
....
f30 nvarchar(50),
)
في برنامجك أنت بحاجة إلى متغير يحفظ آخر قيمة معروضة على الشاشة في سطر 3
Dim LastID as integer = 0
لكي تقوم بعمل Query كما يلي:
Dim Query as string = "Select top3 * from myData where "ID > & LastID.toString()
dim myDA as new DataAdapter( ...)
dim myDS as new Dataset()
myDA.Fill(myDS)
كذلك من خصائص الـ SQL Server Row_Number
تم تعديل هذه المشاركة بواسطة sanousy.howari في 27 أبريل 2012 في 15:24
KARIMSOFT كتب:استخدم التاتي جريد افضل واسرع واسهل في التعامل
أولا اعتذر عن التأخر فلقدكنت منشغلا جدا
جزاك الله خيراعلى الرد
اعرف التعامل مع datagridview
لكن للاسف احتاج عرضا جميلا للمعلومات على الفورم و يهمني هنا التنسيق جدا
بارك الله فيك
sanousy.howari كتب:بالنسبة للأسلوب اليدوي (برمجة) يمكنك عمل ذلك ولكنك بحاجة إلى Query يعتمد على Primary key ولنفرض بأنك تمتلك Table على الـ Database يحتوي الحقول التالية:
create table myData(
id integer ,
f1 nvarchar(50),
f2 nvarchar(50),
f3 nvarchar(50),
f4 nvarchar(50),
f5 nvarchar(50),
....
f30 nvarchar(50),
)
في برنامجك أنت بحاجة إلى متغير يحفظ آخر قيمة معروضة على الشاشة في سطر 3
Dim LastID as integer = 0
لكي تقوم بعمل Query كما يلي:
Dim Query as string = "Select top3 * from myData where "ID > & LastID.toString()
dim myDA as new DataAdapter( ...)
dim myDS as new Dataset()
myDA.Fill(myDS)
كذلك من خصائص الـ SQL Server Row_Number
اتعذر منك اخونا سنوسي كثيرا فقد اتعبناك و طلبي كان بالتعامل مع textbox
اعرف التعامل مع datagrid
لكنها لا تلابي حاجتني من حيث تنسيق الفورم
جزاك الله اخونا خيرا
هناك طريقة
لنفرض ان هناك 8 rows و 6 column
ضع 48 Textbox في ال Form بحيث يكون اسم اول Textbox هو "Textbox1" و اخر Textbox هو "Textbox48" بالترتيب
انا ساقرا من datatable موجود في dataset
myTableAdapter.Fill(myDataSet.myTable)
Dim number_of_column = 6
Dim number_or_rows = 8
Dim cont_num = 1
For ix = 0 to number_or_rows - 1
Me.Controls("Textbox" & (cont_num + 0).ToString).Text = myDataset.myTable.Rows(ix)("Field1")
Me.Controls("Textbox" & (cont_num + 1).ToString).Text = myDataset.myTable.Rows(ix)("Field2")
Me.Controls("Textbox" & (cont_num + 2).ToString).Text = myDataset.myTable.Rows(ix)("Field3")
Me.Controls("Textbox" & (cont_num + 3).ToString).Text = myDataset.myTable.Rows(ix)("Field4")
Me.Controls("Textbox" & (cont_num + 4).ToString).Text = myDataset.myTable.Rows(ix)("Field5")
Me.Controls("Textbox" & (cont_num + 5).ToString).Text = myDataset.myTable.Rows(ix)("Field6")
cont_num += number_of_column
Nextتم تعديل هذه المشاركة بواسطة سمير ابراهيم في 10 مايو 2012 في 17:10
سمير ابراهيم كتب:هناك طريقة
لنفرض ان هناك 8 rows و 6 column
ضع 48 Textbox في ال Form بحيث يكون اسم اول Textbox هو "Textbox1" و اخر Textbox هو "Textbox48" بالترتيب
انا ساقرا من datatable موجود في dataset
myTableAdapter.Fill(myDataSet.myTable) Dim number_of_column = 6 Dim number_or_rows = 8 Dim cont_num = 1 For ix = 0 to number_or_rows - 1 Me.Controls("Textbox" & (cont_num + 0).ToString).Text = myDataset.myTable.Rows(ix)("Field1") Me.Controls("Textbox" & (cont_num + 1).ToString).Text = myDataset.myTable.Rows(ix)("Field2") Me.Controls("Textbox" & (cont_num + 2).ToString).Text = myDataset.myTable.Rows(ix)("Field3") Me.Controls("Textbox" & (cont_num + 3).ToString).Text = myDataset.myTable.Rows(ix)("Field4") Me.Controls("Textbox" & (cont_num + 4).ToString).Text = myDataset.myTable.Rows(ix)("Field5") Me.Controls("Textbox" & (cont_num + 5).ToString).Text = myDataset.myTable.Rows(ix)("Field6") cont_num += number_of_column Next
جزاك الله خيرا
ساجرب الكود لاحقا
فقد تم الاستغناء عن الفكرة نطرا لاني لم اجد ردا في في الوقت المناسب
جزاك الله الجنة
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…