PDA

View Full Version : نمایش checkbox برای خانه های grid برای فیلدهای boolien



sh
جمعه 23 خرداد 1382, 22:06 عصر
چگونه می شود در دیتا گرید برای فیلدهای بولین چک باک گذاشت ؟

VBCitizen
پنج شنبه 29 خرداد 1382, 18:32 عصر
سلام دوست عزیز برای اینکار باید از کنترلهای خاص مثل UltraGrid یا VS Flex GRid استفده کنی. استفاده از کنترلهای استاندارد VB امکانپذیر نیست.
ارادتمند علیرضا ناصری

Maryam_y_m
شنبه 26 شهریور 1384, 12:15 عصر
این امکان در VB به راحتی امکان پذیر است. باید یک tableStyle تعریف کنی و هنگام تعریف ستون مورد نظر آن را از نوع DataGridBoolColumn تعریف کنی. به مثال زیر دقت کن:

Dim TblStyle As New DataGridTableStyle
Dim tblCrrncMngr As CurrencyManager = CType(BindingContext(DsBase.Tables.Item("Tbl_SimpleAttribute")), CurrencyManager)

With DG
'.SetDataBinding(DsBase, "Tbl_SimpleAttribute")
.DataSource = DsBase.Tbl_SimpleAttribute
.BackgroundColor = System.Drawing.Color.AntiqueWhite
.CaptionBackColor = System.Drawing.Color.Brown
.CaptionForeColor = System.Drawing.Color.LemonChiffon
.ParentRowsBackColor = System.Drawing.Color.Lavender
.ParentRowsForeColor = System.Drawing.Color.Black
.CaptionText = "لیست خصیصه های ساده"
.TableStyles.Clear()
End With
With TblStyle
.MappingName = DsBase.Tbl_SimpleAttribute.TableName
.BackColor = System.Drawing.Color.White
.ForeColor = System.Drawing.Color.Black
.GridLineColor = System.Drawing.Color.Brown
.HeaderBackColor = System.Drawing.Color.BurlyWood
.HeaderForeColor = System.Drawing.Color.Brown
.AlternatingBackColor = Color.AntiqueWhite
.RowHeaderWidth = 10
.ForeColor = Color.Black

End With
Dim Textbox3 As New DataGridBoolColumn
Textbox3.Alignment = HorizontalAlignment.Left
Textbox3.MappingName = "Selected"
Textbox3.HeaderText = "انتخاب"
Textbox3.Width = 65
Textbox3.NullText = String.Empty
Textbox3.AllowNull = False
Textbox3.ReadOnly = False
TblStyle.GridColumnStyles.Add(Textbox3)

Dim Textbox1 As New DataGridTextBoxColumn
Textbox1.MappingName = "SimpleAttributeID"
Textbox1.Alignment = HorizontalAlignment.Left
'Textbox1.TextBox.Font = Font.Bold.TrueString
Textbox1.HeaderText = "کد"
Textbox1.Width = 0
Textbox1.NullText = String.Empty
TblStyle.GridColumnStyles.Add(Textbox1)

Dim Textbox2 As New DataGridTextBoxColumn
Textbox2.Alignment = HorizontalAlignment.Left
Textbox2.MappingName = "SimpleAttributeName"
Textbox2.HeaderText = "نام خصیصه"
Textbox2.Width = 200
Textbox2.NullText = String.Empty
Textbox2.ReadOnly = True
TblStyle.GridColumnStyles.Add(Textbox2)

DG.TableStyles.Add(TblStyle)
DsBase.Tbl_SimpleAttribute.DefaultView.AllowNew = False]]

Chabok
یک شنبه 27 شهریور 1384, 10:59 صبح
اگر از TableStyle استفاده می کنید همون جا میشه این کارو انجام داد .
قسمتی که مربوط به اضافه کردن ستون هست یه فلش کوچیک داره کنار دکمه Add که وقتی برنید نوشته
DataGridBoolColumn
و در قسمت Mapping هم که باید اسم ستون را وارد نمایید .