Dim drs As List (of DataRow) = DataTables("账户明细").sqlselect(filter) For i As Integer = 0 To drs.Count-1 rt.cells(i+1,0).text= drs(i)("账户户名") rt.cells(i+1,1).text= drs(i)("账户账号") rt.cells(i+1,2).text= drs(i)("账户卡号") rt.cells(i+1,3).text= drs(i)("开户行_简称") rt.Rows(i).Height = 10 Next Doc.body.Children.Add(rt)