rt.Rows(23).Style.Borders.All = New prt.LineDef(Color.white) '去掉第一行表格线
rt.cells(23,0).Style.Borders.All = New prt.LineDef(Color.white)
rt.cells(23,4).Style.Borders.All = New prt.LineDef(Color.white)
rt.Rows(24).Style.Borders.All = New prt.LineDef(Color.white) '去掉第一行表格线
rt.cells(24,0).Style.Borders.All = New prt.LineDef(Color.white)
rt.cells(24,4).Style.Borders.All = New prt.LineDef(Color.white)
rt.Rows(22).Style.Borders.Bottom = New prt.Linedef '增加第一行底线