cnt = drs.Count
mxh = Math.Max(10,cnt）
Dim xuhao As Integer = 1
For i As Integer = 0 To mxh - 1
rt.Rows(rt.Rows.Count).Height = 5
rt.Rows(rt.Rows.Count-1).Style.Font = New Font("宋体", 10, FontStyle.Regular)
rt.Cells(rt.Rows.Count-1,0).SpanCols = 2 '向右合并2列
rt.Cells(rt.Rows.Count-1,4).SpanCols = 3 '向右合并2列
rt.Cells(rt.Rows.Count-1,8).SpanCols = 2 '向右合并2列
rt.Cells(rt.Rows.Count-1,10).SpanCols = 2 '向右合并2列
rt.Cells(rt.Rows.Count-1,12).SpanCols = 4 '向右合并2列
rt.Cells(rt.Rows.Count-1,0).Style.GridLines.left = New prt.Linedef(0.5,clr)
rt.Cells(rt.Rows.Count-1,12).Style.GridLines.Right = New prt.Linedef(0.5,clr)
If i < cnt
rt.Cells(rt.Rows.Count-1,3).Text = drs(i)("szh")
rt.Cells(rt.Rows.Count-1,8).Text = drs(i)("考场号")
rt.Cells(rt.Rows.Count-1,10).Text = drs(i)("座位号")
Dim dr1 As DataRow = DataTables("ksap").find("szh = '" & drs(i)("szh") & "'")
If dr1 IsNot Nothing
rt.Cells(rt.Rows.Count-1,0).Text = format(dr1("rq"),"yyyy-MM-dd").Replace("0001-01-01","")
rt.Cells(rt.Rows.Count-1,2).Text = xuhao
rt.Cells(rt.Rows.Count-1,3).Text = dr1("szh")
rt.Cells(rt.Rows.Count-1,4).Text = dr1("szmc")
rt.Cells(rt.Rows.Count-1,7).Text = dr1("kslx")
rt.Cells(rt.Rows.Count-1,12).Text =dr1("ks")
xuhao += 1
End If
End If
Next
加好友 
发短信
Post By：2016/10/29 9:25:00 [显示全部帖子]
