主题：[求助]

       rt.Style.Borders.all = New prt.Linedef(0,Color.White)

        

        rt.Style.TextColor = Color.Black

        rt.Cols(0).Width = 14 & "mm"

        rt.Cols(1).Width = 6 & "mm"

        rt.Cols(2).Width = 25 & "mm"

        rt.Cols(3).Width = 10 & "mm"

        rt.Cols(4).Width = 15 & "mm"

        rt.Cols(5).Width = 15 & "mm"

        rt.Cols(6).Width = 7 & "mm"

        rt.Cols(7).Width = 8 & "mm"

        rt.Cols(8).Width = 7 & "mm"

        rt.Cols(9).Width = 7 & "mm"

        rt.Cols(10).Width = 9 & "mm"

        rt.Cols(11).Width = 7 & "mm"

        rt.Cols(12).Width = 7 & "mm"

        rt.Cols(13).Width = 3 & "mm"

        rt.Cols(14).Width = 3 & "mm"

        rt.Cols(15).Width = 27 & "mm"

        rt.Rows(rt.Rows.Count).Height = 14

        rt.Rows(rt.Rows.Count-1).Style.GridLines.all = New prt.Linedef(0,Color.White)

        rt.Rows(rt.Rows.Count-1).Style.GridLines.Top = New prt.Linedef(0.5,clr)

        rt.Cells(rt.Rows.Count-1,0).Style.GridLines.left = New prt.Linedef(0.5,clr)

        rt.Cells(rt.Rows.Count-1,13).Style.GridLines.left = New prt.Linedef(0.5,clr)

        rt.Cells(rt.Rows.Count-1,0).SpanCols = 13  '向右合并13列

        rt.Cells(rt.Rows.Count-1,0).Text =  getConfigValue("学校名称","请先选择学校名称!")

        rt.Cells(rt.Rows.Count-1,0).Style.Font = New Font("宋体", 14, FontStyle.Regular)

        rt.Rows(rt.Rows.Count).Height = 14

        rt.Rows(rt.Rows.Count-1).Style.GridLines.all = New prt.Linedef(0,Color.White)

        rt.Cells(rt.Rows.Count-1,0).Style.GridLines.left = New prt.Linedef(0.5,clr)

        rt.Cells(rt.Rows.Count-1,13).Style.GridLines.left = New prt.Linedef(0.5,clr)

        rt.Cells(rt.Rows.Count-1,0).SpanCols = 13 '向右合并13列

        rt.Cells(rt.Rows.Count-1,0).Text = getConfigValue("证件名称","请先选择证件名称!")

        rt.Cells(rt.Rows.Count-1,0).Style.Font = New Font("黑体", 20, FontStyle.Regular)

        rt.Cells(rt.Rows.Count-1,0).Style.TextColor = clr

        rt.Rows(rt.Rows.Count).Height = 7

        rt.Rows(rt.Rows.Count-1).Style.GridLines.all = New prt.Linedef(0,Color.White)

        rt.Cells(rt.Rows.Count-1,0).Style.GridLines.left = New prt.Linedef(0.5,clr)

        rt.Cells(rt.Rows.Count-1,13).Style.GridLines.left = New prt.Linedef(0.5,clr)

        rt.Rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 12, FontStyle.Regular)

        rt.Cells(rt.Rows.Count-1,0).Text = "学号:"

        rt.Cells(rt.Rows.Count-1,0).Style.TextColor = clr