Strange thing; I moved the column to another column and it works as
expected. I really need the column where I had it before.
I move the column from the last column to the first to make it work.
Here is the code:
'
' Create GridColumnStyle objects for the grid columns
'
Dim aCol1 As New DataGridTextBox Column
Dim aCol1a As New DataGridTextBox Column
Dim aCol2 As New DataGridTextBox Column
Dim aCol3 As New DataGridTextBox Column
Dim aCol5 As New DataGridTextBox Column
Dim aCol6 As New DataGridTextBox Column
Dim aCol7 As New DataGridTextBox Column
Dim aCol8 As New DataGridTextBox Column
Dim aCol9 As New DataGridTextBox Column
Dim aCol10 As New DataGridTextBox Column
Dim aCol11 As New DataGridTextBox Column
Dim aCol11a As New DataGridTextBox Column
Dim aCol12 As New DataGridTextBox Column
Dim aCol13 As New DataGridTextBox Column
Dim aCol14 As New DataGridTextBox Column
Dim aCol15 As New DataGridBoolCol umn
'
' Set column's caption, width and disable editing.
'
With aCol1
..HeaderText = "Product SKU"
..MappingName = "ProductSKU "
..Width = 65
..Alignment = HorizontalAlign ment.Left
..TextBox.Enabl ed = False
End With
With aCol1a
..HeaderText = "Descriptio n"
..MappingName = "InvoiceDescrip ton"
..Width = 203
..Alignment = HorizontalAlign ment.Left
..TextBox.Enabl ed = False
End With
With aCol2
..MappingName = "CurrentRNB "
..HeaderText = "Cur RNB"
..Width = 54
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = False
End With
With aCol3
..MappingName = "FutureRNB"
..HeaderText = "Fut RNB"
..Width = 54
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = False
End With
With aCol5
..MappingName = "RNBPctchg"
..HeaderText = "RNB % Chg"
..Width = 66
..Alignment = HorizontalAlign ment.Right
..Format = "p"
..TextBox.Enabl ed = False
End With
With aCol6
..MappingName = "CurrentPal let"
..HeaderText = "Cur Pallet"
..Width = 56
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = False
End With
With aCol7
..MappingName = "FuturePall et"
..HeaderText = "Fut Pallet"
..Width = 56
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = False
End With
With aCol8
..MappingName = "DollarChangePa llet"
..HeaderText = "Pallet $ Chg"
..Width = 75
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = False
End With
With aCol9
..MappingName = "PalletPctc hg"
..HeaderText = "Pal % Chg"
..Width = 60
..Alignment = HorizontalAlign ment.Right
..Format = "p"
..TextBox.Enabl ed = False
End With
With aCol10
..MappingName = "SuggestedD IY"
..HeaderText = "MSRP"
..Width = 55
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = False
End With
'With aColxx
'.MappingName = "SuggestedContr actor"
'.HeaderText = "S/R Contr"
'.Width = 68
'.Alignment = HorizontalAlign ment.Right
'.Format = "c"
'.TextBox.Enabl ed = False
'End With
With aCol11a
..MappingName = "ReplacementCos t"
..HeaderText = "Store Cost*"
..Width = 70
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = True
End With
With aCol12
..MappingName = "StoreCost"
..HeaderText = "Cost w/Tint*"
..Width = 73
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = True
End With
With aCol13
..MappingName = "StoreRetai l"
..HeaderText = "Store Retail*"
..Width = 73
..Alignment = HorizontalAlign ment.Right
..Format = "c"
..TextBox.Enabl ed = True
End With
With aCol14
..MappingName = "DesiredMar gin"
..HeaderText = "Margin*"
..Width = 55
..Alignment = HorizontalAlign ment.Right
..Format = "p"
..TextBox.Enabl ed = True
End With
With aCol15
..MappingName = "OmitFlag"
..HeaderText = "Omit*"
..Width = 35
..AllowNull = False
..NullValue = False
..Alignment = HorizontalAlign ment.Center
End With
'
' Add the GridColumnStyle s to the DataGrid's Column Styles collection.
'
With aGridTableStyle .GridColumnStyl es
..Add(aCol15)
..Add(aCol1)
..Add(aCol1a)
..Add(aCol2)
..Add(aCol3)
..Add(aCol5)
..Add(aCol6)
..Add(aCol7)
..Add(aCol8)
..Add(aCol9)
..Add(aCol10)
'.Add(aCol11)
..Add(aCol11a)
..Add(aCol12)
..Add(aCol13)
..Add(aCol14)
End With
'
' Add the GridColumnStyle s to the aGridTableStyle .
'
DataGrid1.Table Styles.Add(aGri dTableStyle)
DataGrid1.Curre ntCell = New DataGridCell(0, 10)
'DataGrid1.Data Source.DefaultV iew.AllowNew = False
HoldValue = DataGrid1.Item( 0, 10)
Steve
"Stephen Plotnick" <sp*******@grou pcbf.comwrote in message
news:_8******** *************** *******@giganew s.com...
>I have a checkbox in a data grid that does not change it's state until I
actually leave the field. I've done this routine several times in other
data grids without an issue.
I'm using VB.2003.
Steve