28-09-13, 03:35 PM (آخر تعديل لهذه المشاركة : 28-09-13, 03:36 PM {2} بواسطة kafi2030.)
شكرا اخي
sooriaty
على اجابتك
الكود الذي تفضلت به حضرتك، لم ينجح معي في تغيير ارتفاع صفوف الداتا جريد فيو على الاطلاق، ولا حتى تغيير ارتفاع قيمة الصف الاول، رغم انني وضعت قيم كبيرة، 200 حتى الاحظ الفرق ولكن دون جدوى علما ان الكود الخاص بي هو
كود :
Sub DataGrid_set()
On Error Resume Next
Dim xDB As New DB.Data_Kafi
Dim beda = From d In xDB.Fixed_Bedas
Select d
Dim bsn As New BindingSource()
bsn.DataSource = beda
DGV.AutoGenerateColumns = False
With Motasalsel_Column
.DataPropertyName = "Beda_id"
.HeaderText = "متسلسل"
.Width = 0
.Visible = False
End With
With Beda_Name_Column
.DataPropertyName = "Beda_Name"
.HeaderText = "اســـم المــــــادة"
.Width = 200
.Visible = True
End With
With Shra_Column
.DataPropertyName = "Shra_Price"
.HeaderText = "سعر الشراء"
.Width = 90
.Visible = True
End With
With Mabie_Column
.DataPropertyName = "Mabee_Price"
.HeaderText = "سعر المبيع"
.Width = 90
.Visible = True
End With
With Rabeh_Column
.DataPropertyName = "Rabeh"
.HeaderText = "ربــح المــادة"
.Width = 90
.Visible = True
End With
With Note_Column
.DataPropertyName = "Beda_Note"
.HeaderText = "ملاحظــــــات"
.Width = 392
.Visible = True
End With
(28-09-13, 03:35 PM)kafi2030 كتب : شكرا اخي
sooriaty
على اجابتك
الكود الذي تفضلت به حضرتك، لم ينجح معي في تغيير ارتفاع صفوف الداتا جريد فيو على الاطلاق، ولا حتى تغيير ارتفاع قيمة الصف الاول، رغم انني وضعت قيم كبيرة، 200 حتى الاحظ الفرق ولكن دون جدوى علما ان الكود الخاص بي هو
كود :
Sub DataGrid_set()
On Error Resume Next
Dim xDB As New DB.Data_Kafi
Dim beda = From d In xDB.Fixed_Bedas
Select d
Dim bsn As New BindingSource()
bsn.DataSource = beda
DGV.AutoGenerateColumns = False
With Motasalsel_Column
.DataPropertyName = "Beda_id"
.HeaderText = "متسلسل"
.Width = 0
.Visible = False
End With
With Beda_Name_Column
.DataPropertyName = "Beda_Name"
.HeaderText = "اســـم المــــــادة"
.Width = 200
.Visible = True
End With
With Shra_Column
.DataPropertyName = "Shra_Price"
.HeaderText = "سعر الشراء"
.Width = 90
.Visible = True
End With
With Mabie_Column
.DataPropertyName = "Mabee_Price"
.HeaderText = "سعر المبيع"
.Width = 90
.Visible = True
End With
With Rabeh_Column
.DataPropertyName = "Rabeh"
.HeaderText = "ربــح المــادة"
.Width = 90
.Visible = True
End With
With Note_Column
.DataPropertyName = "Beda_Note"
.HeaderText = "ملاحظــــــات"
.Width = 392
.Visible = True
End With