(13-01-21, 07:47 AM)moosa_alabri كتب : الجرد فيو في الدف اكسبرس تختلف تماما عن الجرد العادي
جرب هذا الكود
وحقيقة انا اميل الى استخدام الادوات الخاصة بالبرنامج من غير اضافات خارجية لانها ستخلق لك مشاكل انت في غنى عنها وخصوصا
عند نقل برنامجك لاجهزة اخرى ، كذلك هذه الادوات غالية الثمن وقد يلجأ البعض الى كسر حمياتها وقد يترتب على ذلك امور قد نشك
بحليتها خصوصا للامور التجارية
كل التوفيق
PHP كود :
rivate Sub MyGridView_RowStyle(ByVal sender As Object, ByVal e As RowStyleEventArgs)
Dim quantity As Integer = Convert.ToInt32(MyGridView.GetRowCellValue(e.RowHandle, "QuantityField"))
If quantity < 0 Then
e.Appearance.BackColor = Color.Red
Else
e.Appearance.BackColor = Color.LightGreen
End If
e.HighPriority = True 'override any other formatting
End Sub
حبيبي يا كبير كلامك صحيح جداا ولكن الديف موفره وقت في بعض الادوات
انا عايز اطلب من حضرتك طلب
انا اريد ان اجلب جميع القيم اللي في عامود 0 في ليست بوكس انا اعرف اعملها من جريد فيو العاديه لكن ديف اكسبريس لا
استخدم هذا الكود في الفورم لود
كود :
GridView1.Columns.Clear()
dt.Columns.Add("Name")
dt.Columns.Add("Price")
dt.Columns.Add("Address")
dt.Columns.Add("Phone")
dt.Columns.Add("Description")
dt.Columns.Add("Date ads")
dt.Columns.Add("Date account")
dt.Columns.Add("Viwe")
dt.Columns.Add("Link")
GridControl1.DataSource = dt
GridView1.Columns("Name").Caption = "Name"
GridView1.Columns("Price").Caption = "Price"
GridView1.Columns("Address").Caption = "Address"
GridView1.Columns("Phone").Caption = "Phone"
GridView1.Columns("Description").Caption = "Description"
GridView1.Columns("Date ads").Caption = "Date ads"
GridView1.Columns("Date account").Caption = "Date account"
GridView1.Columns("Viwe").Caption = "Viwe"
GridView1.Columns("Link").Caption = "Link"
وهذا الكود لملئ الحقول
كود :
dt.Rows.Add(xName, xPrice, xAddress, xPhone, xDescription, xDate_ads, xDate_account, xViwe, xlink)
(13-01-21, 06:16 PM)اليوم السابع كتب : (13-01-21, 07:47 AM)moosa_alabri كتب : الجرد فيو في الدف اكسبرس تختلف تماما عن الجرد العادي
جرب هذا الكود
وحقيقة انا اميل الى استخدام الادوات الخاصة بالبرنامج من غير اضافات خارجية لانها ستخلق لك مشاكل انت في غنى عنها وخصوصا
عند نقل برنامجك لاجهزة اخرى ، كذلك هذه الادوات غالية الثمن وقد يلجأ البعض الى كسر حمياتها وقد يترتب على ذلك امور قد نشك
بحليتها خصوصا للامور التجارية
كل التوفيق
PHP كود :
rivate Sub MyGridView_RowStyle(ByVal sender As Object, ByVal e As RowStyleEventArgs)
Dim quantity As Integer = Convert.ToInt32(MyGridView.GetRowCellValue(e.RowHandle, "QuantityField"))
If quantity < 0 Then
e.Appearance.BackColor = Color.Red
Else
e.Appearance.BackColor = Color.LightGreen
End If
e.HighPriority = True 'override any other formatting
End Sub
حبيبي يا كبير كلامك صحيح جداا ولكن الديف موفره وقت في بعض الادوات
انا عايز اطلب من حضرتك طلب
انا اريد ان اجلب جميع القيم اللي في عامود 0 في ليست بوكس انا اعرف اعملها من جريد فيو العاديه لكن ديف اكسبريس لا
استخدم هذا الكود في الفورم لود
كود :
GridView1.Columns.Clear()
dt.Columns.Add("Name")
dt.Columns.Add("Price")
dt.Columns.Add("Address")
dt.Columns.Add("Phone")
dt.Columns.Add("Description")
dt.Columns.Add("Date ads")
dt.Columns.Add("Date account")
dt.Columns.Add("Viwe")
dt.Columns.Add("Link")
GridControl1.DataSource = dt
GridView1.Columns("Name").Caption = "Name"
GridView1.Columns("Price").Caption = "Price"
GridView1.Columns("Address").Caption = "Address"
GridView1.Columns("Phone").Caption = "Phone"
GridView1.Columns("Description").Caption = "Description"
GridView1.Columns("Date ads").Caption = "Date ads"
GridView1.Columns("Date account").Caption = "Date account"
GridView1.Columns("Viwe").Caption = "Viwe"
GridView1.Columns("Link").Caption = "Link"
وهذا الكود لملئ الحقول
كود :
dt.Rows.Add(xName, xPrice, xAddress, xPhone, xDescription, xDate_ads, xDate_account, xViwe, xlink)
لقيت الحل
كود :
For i As Integer = 0 To GridView1.DataRowCount - 1
Dim ass As String = GridView1.GetRowCellValue(i, "Name")
'do something
Next