Hi
I have created a windows form that hold a datagrid, that datagrid gets
it values from a stored procedure. My problem is that I have added a
checkbox to the datagrid and applied some style to the datagrid. But
the checkbox is always greyed out. Why is that, and what am I doing
wrong?
Here's my code...
<code>
Sub BindData(ByVal OrderID As String)
Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim myDataAdapter As SqlDataAdapter
Dim myDataSet As New DataSet
Dim strConn As String
strConn = ("myconnstr")
myConnection = New SqlConnection(strConn)
myConnection.Open()
myCommand = New SqlCommand("p_PDFDetail", myConnection)
myCommand.CommandType = CommandType.StoredProcedure
myCommand.Parameters.Add("@CartID", SqlDbType.NVarChar, 50).Value =
OrderID
myDataAdapter = New SqlDataAdapter(myCommand)
myDataAdapter.Fill(myDataSet, "tbl_Order")
Dim myDataTable As New DataView(myDataSet.Tables("tbl_Order"))
myDataSet.Tables("tbl_Order").Columns("InfileMap") .ColumnMapping =
MappingType.Hidden
Dim ts1 As New DataGridTableStyle
ts1.MappingName = "tbl_Order"
ts1.AlternatingBackColor = Color.LightGray
Dim TextCol1 As New DataGridTextBoxColumn
Dim TextCol2 As New DataGridTextBoxColumn
Dim TextCol3 As New DataGridTextBoxColumn
Dim TextCol4 As New DataGridTextBoxColumn
Dim TextCol5 As New DataGridTextBoxColumn
TextCol1.MappingName = "CartID" 'from dataset table
TextCol1.HeaderText = "OrderID"
TextCol1.Width = 100
TextCol2.MappingName = "Quantity" 'from dataset table
TextCol2.HeaderText = "Qty"
TextCol2.Width = 50
TextCol2.Alignment = HorizontalAlignment.Center
TextCol3.MappingName = "ArtNr" 'from dataset table
TextCol3.HeaderText = "Article nr"
TextCol3.Width = 75
TextCol4.MappingName = "Description" 'from dataset table
TextCol4.HeaderText = "Product"
TextCol4.Width = 250
TextCol5.MappingName = "Country" 'from dataset table
TextCol5.HeaderText = "Language"
TextCol5.Width = 100
ts1.GridColumnStyles.Add(TextCol1)
ts1.GridColumnStyles.Add(TextCol2)
ts1.GridColumnStyles.Add(TextCol3)
ts1.GridColumnStyles.Add(TextCol4)
ts1.GridColumnStyles.Add(TextCol5)
MyDataGrid.DataSource = myDataSet
'MyDataGrid.AlternatingBackColor = Color.LightGray
MyDataGrid.TableStyles.Add(ts1)
MyDataGrid.ReadOnly = True
'STEP 4: Add the checkbox
Dim boolCol As New DataGridBoolColumn
With boolCol
.HeaderText = "Make PDF"
.MappingName = "ID"
.Width = 75
.TrueValue = True
.FalseValue = False
.ReadOnly = False
.Alignment = HorizontalAlignment.Center
.AllowNull = False
End With
ts1.GridColumnStyles.AddRange(New DataGridColumnStyle() {boolCol})
MyDataGrid.TableStyles.Add(ts1)
MyDataGrid.DataMember = "tbl_Order"
End Sub
</code>
Regards
Magnus
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
