[VB] Spread, Header 가지고 놀기

Spread Header...의 구성

PD_SPARE.ColHeaderRows = 2

SPD_SPARE.RowHeaderCols = 1

SPD_SPARE.MaxCols = 9

SPD_SPARE.MaxRows = 0

 

SPD_SPARE.AddCellSpan 0, SpreadHeader, 1, 2   '병합

SPD_SPARE.AddCellSpan 1, SpreadHeader, 1, 2   '병합

SPD_SPARE.AddCellSpan 2, SpreadHeader, 1, 2   '병합

SPD_SPARE.AddCellSpan 3, SpreadHeader, 1, 2   '병합

SPD_SPARE.AddCellSpan 4, SpreadHeader, 1, 2   '병합

SPD_SPARE.AddCellSpan 5, SpreadHeader, 2, 1   '병합

SPD_SPARE.AddCellSpan 7, SpreadHeader, 2, 1   '병합

 

SPD_SPARE.Col = 0: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "No.": SPD_SPARE.TypeHAlign = 2

SPD_SPARE.Col = 1: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "ITEM DESCRIPTION": SPD_SPARE.TypeHAlign = 2 

SPD_SPARE.Col = 2: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "PART No.": SPD_SPARE.TypeHAlign = 2

SPD_SPARE.Col = 3: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "Drawing No.": SPD_SPARE.TypeHAlign = 2

SPD_SPARE.Col = 4: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "Unit": SPD_SPARE.TypeHAlign = 2

SPD_SPARE.Col = 5: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "Stock New Qty": SPD_SPARE.TypeHAlign = 2

SPD_SPARE.Col = 5: SPD_SPARE.Row = SpreadHeader + 1: SPD_SPARE.Text = "Hold Qty": SPD_SPARE.TypeHAlign = 2

SPD_SPARE.Col = 7: SPD_SPARE.Row = SpreadHeader: SPD_SPARE.Text = "Stock Old Qty": SPD_SPARE.TypeHAlign = 2 

SPD_SPARE.Col = 7: SPD_SPARE.Row = SpreadHeader + 1: SPD_SPARE.Text = "Hold Qty": SPD_SPARE.TypeHAlign = 2 

SPD_SPARE.Col = 8: SPD_SPARE.Row = SpreadHeader + 1: SPD_SPARE.Text = "Consumption": SPD_SPARE.TypeHAlign = 2 

참고 : http://www.devpia.com/MAEUL/Contents/Detail.aspx?BoardID=47&MAEULNo=19&no=266753&ref=266753