.Columns.RemoveAt(i) and For Next Loop

[aax123]

I am wanting to loop thru the columns in a datagrid and if the value is Null remove the column(s).

Is this code correct?
-------------------------------------

For i = dgVehicleDetail.Columns.Count - 1 To 1 Step -1
If dgVehicleDetail.Columns.Item(i) = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
Next

[aax123]

I got it figured out. This is what worked.
----------

If ds.Tables(0).Rows.Count > 0 Then
For i = dgVehicleDetail.Columns.Count - 1 To 1 Step -1
If dgVehicleDetail.Columns.Item(i).HeaderText = "Yr" Then
If ds.Tables(0).Rows(0).Item("liner_year") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Make" Then
If ds.Tables(0).Rows(0).Item("liner_make") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Model" Then
If ds.Tables(0).Rows(0).Item("liner_model") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Series" Then
If ds.Tables(0).Rows(0).Item("liner_series") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Body Style" Then
If ds.Tables(0).Rows(0).Item("liner_bodystyle") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "VIN(Full)" Then
If ds.Tables(0).Rows(0).Item("liner_vinfull") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "VIN(Last8)" Then
If ds.Tables(0).Rows(0).Item("liner_vinlast8") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Miles" Then
If ds.Tables(0).Rows(0).Item("liner_miles") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Retail Price" Then
If ds.Tables(0).Rows(0).Item("liner_retailprice") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Internet Price" Then
If ds.Tables(0).Rows(0).Item("liner_internetprice") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
If dgVehicleDetail.Columns.Item(i).HeaderText = "Stock Num" Then
If ds.Tables(0).Rows(0).Item("liner_stocknum") = "" Then
dgVehicleDetail.Columns.RemoveAt(i)
End If
End If
Next