:: Forum >> Version 2 >>

Header Fixed - Not Grid

Hello..maybe anyone can help me..I have this procedure in VB 6.0 that display a table..
How I can modify to have the header fixed ?? Thank you..
lnColumnCount psRecordset.fields.Count
    l
"<table cellspacing=""0"" cellpadding=""1"" valign=""top""  class=""table_1""> "
        'Header
        l= l & "<tr>"
            For i = 0 To lnColumnCount - 1
                If i <> 0 Then
                   l= l & "<td class=""td_header"" align=""center"" height=""20"">" & psRecordset.fields(i).name & "</td>"
                Else
                    l= l &  "<td class=""td_header"" align=""center"" height=""20"" colspan=""2"">" & psRecordset.fields(i).name & "</td>"
                End If
            Next i
        lostrmgr.ConcatLargeString "</tr>"
        '
Rows
        j 
0
        
If Not psRecordset.EOF Then
            
While Not psRecordset.EOF
                j 
1
                l
IIf(j Mod 2 0"<tr>""<tr class=""aw-alternate-odd"">")
                    
l&  "<td class=""td_header"" height=""20"">" "</td>"
                    
For 0 To lnColumnCount 1
                        
If psRecordset(i) <> "Null" Then
                            lsValue 
psRecordset.fields(i).Value
                        
Else
                            
lsValue " "
                        
End If
                        
l"<td nowrap=""TRUE"" class=""cells"" align=""center"" height=""20"">" lsValue "</td>"
                    
Next i
                l
&  "</tr>"
                
psRecordset.MoveNext
            Wend
        End 
If
    
l&  "</table>" 
Leandro
Friday, December 16, 2005
The way to get a fixed header is to not use VB or <TABLE> and to use the AW Framework Grid. A <TABLE> is not a grid.
Jim Hunter
Friday, December 16, 2005



This topic is archived.

Back to support forum

Forum search