WebListbox Header problem?

Im not sure why this is happening. Im reading from a database into a weblistbox. Im setting the cell value. For some reason it is picking up the code and inserting that into the header. Can anyone help me understand what is going on? Here is the code:

For i As Integer = 1 To rs.RowCount
  
  Rec = New RecordClass_W2Configuration
  Rec.Col0_FieldID = rs.Column("dbW2Field").StringValue
  Rec.Col1_XHorizontal = Str(rs.Column("dbW2FieldX").IntegerValue)
  Rec.Col2_YVertical = Str(rs.Column("dbW2FieldY").IntegerValue)
  Rec.Col3_VariableValue = UnScrambleString(rs.Column("dbW2FieldDescription").StringValue)
  
  W2ConfigListBox.AddRow
  
  W2ConfigListBox.CellTextAt(W2ConfigListBox.LastAddedRowIndex, 0) = New StyleClass_ListboxEditableCell(Rec.Col1_XHorizontal)
  W2ConfigListBox.CellTextAt(W2ConfigListBox.LastAddedRowIndex, 1) = New StyleClass_ListboxEditableCell(Rec.Col2_YVertical)
  W2ConfigListBox.CellTextAt(W2ConfigListBox.LastAddedRowIndex, 2) = Rec.Col3_VariableValue
  W2ConfigListBox.RowTagAt(W2ConfigListBox.LastAddedRowIndex) = Rec
  
  s = "   "+rs.Column("dbW2Field").StringValue
  s=s+", "+Str(rs.Column("dbW2FieldX").IntegerValue)
  s=s+", "+Str(rs.Column("dbW2FieldY").IntegerValue)
  s=s+", "+UnScrambleString(rs.Column("dbW2FieldDescription").StringValue)
  sAuditString.Add s
  
  rs.MoveToNextRow
Next

Here is a picture of what it is looks line on screen.

4 posts - 3 participants

Read full topic