 |
|
ประมาณนี้ค่ะ
Public Sub ModifyColumn()
If DL = "1" Then
Call Grid.ChangeColumnHeader(0, "", 3, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(1, "", 3, flexAlignLeftCenter)
Call Grid.ChangeColumnHeader(2, fCol("Col2"), 4, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(3, fCol("Col3"), 10)
Call Grid.ChangeColumnHeader(4, fCol("Col4"), 10)
Call Grid.ChangeColumnHeader(5, fCol("Col5"), 10)
Call Grid.ChangeColumnHeader(6, fCol("Col6"), 10)
Call Grid.ChangeColumnHeader(7, fCol("Col7"), 25)
Call Grid.ChangeColumnHeader(8, fCol("Col8"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(9, fCol("Col9"), 5)
Call Grid.ChangeColumnHeader(10, fCol("Col10"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(11, fCol("Col11"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(12, fCol("Col12"), 14, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(13, fCol("Col13"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(14, fCol("Col14"), 10)
Call Grid.ChangeColumnHeader(15, fCol("Col15"), 14)
Call Grid.ChangeColumnHeader(16, fCol("Col16"), 10)
Call Grid.ChangeColumnHeader(17, fCol("Col17"), 10, flexAlignLeftCenter)
Else
Call Grid.ChangeColumnHeader(0, "", 3, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(1, "", 3, flexAlignLeftCenter)
Call Grid.ChangeColumnHeader(2, sCol("Col2"), 4, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(3, sCol("Col3"), 10)
Call Grid.ChangeColumnHeader(4, sCol("Col4"), 10)
Call Grid.ChangeColumnHeader(5, sCol("Col5"), 10)
Call Grid.ChangeColumnHeader(6, sCol("Col6"), 10)
Call Grid.ChangeColumnHeader(7, sCol("Col7"), 25)
Call Grid.ChangeColumnHeader(8, sCol("Col8"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(9, sCol("Col9"), 5)
Call Grid.ChangeColumnHeader(10, sCol("Col10"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(11, sCol("Col11"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(12, sCol("Col12"), 14, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(13, sCol("Col13"), 12, flexAlignRightCenter)
Call Grid.ChangeColumnHeader(14, sCol("Col14"), 10)
Call Grid.ChangeColumnHeader(15, sCol("Col15"), 14)
Call Grid.ChangeColumnHeader(16, sCol("Col16"), 10)
Call Grid.ChangeColumnHeader(17, sCol("Col17"), 10, flexAlignLeftCenter)
End If
End Sub
แต่ไม่ทราบว่าเอาโค้ดมถูกที่หรือปล่าว ไม่เคยใช้ตัวนี้เลยค่ะ รบกวนด้วยนะคะ
|
 |
 |
 |
 |
| Date :
2013-03-30 09:22:32 |
By :
AnnAtTom |
|
 |
 |
 |
 |
|
|
 |
