MSHFlexGrid Shape Column Width Woes

[Brenton]

Hi.

I am using vb6 to pull information from a db using the Shape sql format so that I can get grouped data. But theres something weird going on.

It pulls the data through, but if I try to adjust the colwidth throu code, then the grid gets messed up.

Heres the code:

Private Const MARGIN_SIZE = 60      ' in Twips
' variables for data binding
Private datPrimaryRS As ADODB.Recordset

Private Sub Command1_Click()
With MSHFlexGrid1
.ColWidth(3) = 1000
End With
End Sub

Private Sub Form_Load()

    Dim sConnect As String
    Dim sSQL As String
    Dim dfwConn As ADODB.Connection
    Dim i As Integer
Dim s As String
    ' set strings
       sConnect = "PROVIDER=MSDataShape;Extended Properties='DRIVER=SQL Server;SERVER=xserver;UID=user1;PWD=user1;APP=Visual Basic;WSID=xserver;DATABASE=xdb'"
        sSQL = "SHAPE {SELECT ZoneIndex, ZoneName FROM tblZones}  AS Command1 APPEND ({SELECT DeviceIndex, DeviceAddress, Name, HeartBeat, ZoneIndex FROM tblDeviceDetails}  AS Command2 RELATE 'ZoneIndex' TO 'ZoneIndex') AS Command2"
    ' open connection
    Set dfwConn = New Connection
    dfwConn.Open sConnect

    ' create a recordset using the provided collection
    Set datPrimaryRS = New Recordset
    datPrimaryRS.CursorLocation = adUseClient
    datPrimaryRS.Open sSQL, dfwConn, adOpenForwardOnly, adLockReadOnly
s = "|ZoneIndex|ZoneName|DeviceIndex|Device Address|Name|Heartbeat"
MSHFlexGrid1.FormatString = s
    Set MSHFlexGrid1.DataSource = datPrimaryRS
's = ""
    With MSHFlexGrid1
        .Redraw = False
         ' set grid's column widths
        '.FormatString = s
        .ColWidth(0) = 300
        '.ColWidth(1) = 300
        '.ColWidth(2) = 300
        '.ColWidth(3) = 300
        '.ColWidth(4) = 2000
        '.ColWidth(5) = -1
        '.ColWidth(6) = -1
        '.ColWidth(7) = -1
        '.ColWidth(8) = -1
        '.ColWidth(9) = -1
        '.ColWidth(10) = -1
        '.ColWidth(11) = -1
        '.ColWidth(12) = -1
        '.ColWidth(13) = -1
        '.ColWidth(14) = -1
        '.ColWidth(15) = -1
        '.ColWidth(16) = -1
        '.ColWidth(17) = -1
        '.ColWidth(18) = -1
        '.ColWidth(19) = -1
        '.ColWidth(20) = -1
        '.ColWidth(21) = -1
        '.ColWidth(22) = -1
        '.ColWidth(23) = -1
        '.ColWidth(24) = -1
        '.ColWidth(25) = -1
        '.ColWidth(26) = -1
        '.ColWidth(27) = -1
        '.ColWidth(28) = -1

        ' set grid's column merging and sorting
        'For i = 0 To .Cols - 1
        '    .MergeCol(i) = True
        'Next i

        '.Sort = flexSortGenericAscending

        ' set grid's style
        .AllowBigSelection = True
        .FillStyle = flexFillRepeat

        ' make header bold
        .Row = 0
        .Col = 0
        .RowSel = .FixedRows - 1
        .ColSel = .Cols - 1
        .CellFontBold = True

        .AllowBigSelection = False
        .FillStyle = flexFillSingle
        .Row = 4
        .RowSel = 2
        .Col = 4
        .ColSel = 2
        .CellBackColor = vbRed
        .CellPictureAlignment = flexAlignRightCenter

        Set .CellPicture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Icons\Arrows\point15.ico")
        .Redraw = True
        .CollapseAll
        .ExpandAll
        .MergeCells = flexMergeNever
        
    End With

End Sub

I have attached some pictures of whats happening:

Pic1 is when the load first loads.
Pic2 is when I click command1 to change the column width
Pic3 is when I collaspe zone1
Pic4 is when I expand it again.

As you can see, Now a new blank column has appeared outta nowhere.
I cant explain it.

Anyone have idea of whats going on?

Thanks.

[brucevde]

In order to adjust column widths in a hierarchical grid make sure you specify the "Band" number. There is 1 Band for each recordset in the hierarchy. Each Band has its own set of columns starting at 0.

With MSHFlexGrid1
   .ColWidth(0,1) = 1000 'DeviceIndex column.
End With

[eTiger]

Thanx for that brucevde!
It works for me.
Had no idea colwidth needed 2 args.
/eTiger

[Brenton]

Thanks brucevb.

But it only works if I use the data environment to populate the mshflexgrid.
When I use the data environment, I see the grid datasource has command1 and command 2 listed and it has to bands defined.

If like in the code I used, I assigned the grid datasourse winthin code, it does not define more than one band.

Does this mean you have to use the dataenviroment for the hierachical format to come through on the grid?

[brucevde]

Does this mean you have to use the dataenviroment for the hierachical format to come through on the grid?

You don't need to use the DataEnvironment (ever)!
I used the code you posted and it worked no problem.