| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 导出数据中，如何理解如下代码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=74059) |
| -- 作者：hnpykfq123 -- 发布时间：2015/9/1 11:37:00 -- 导出数据中，如何理解如下代码？ 下列代码中倒数第二行的红色部分如何理解？rows能同时后跟两个（）及参数吗？ Dim dt As Table = Tables("订单")Dim Book As New XLS.Book \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) \'引用工作簿的第一个工作表 Dim Style As Xls.Style = Book.NewStyle \'新建一个样式 Style.BackColor = Color.Red \'样式的背景颜色设为红色 For c As Integer = 0 To dt.Cols.Count -1 \'添加列标题 Sheet(0, c).Value = dt.Cols(c).Name Next For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据 For c As Integer = 0 To dt.Cols.Count -1 Sheet(r +1, c).Value = dt.rows(r)(c) Next <!--[if !supportLineBreakNewLine]--> <!--[endif]--> |
| -- 作者：大红袍 -- 发布时间：2015/9/1 11:58:00 -- Sheet(r +1, c).Value = dt.rows(r)(c)
意思是往sheet某个单元格填入值。
dt.rows(r) 获取某行的数据。
dr.rows(r)(c) 获取某行c列的数据 |
| -- 作者：hnpykfq123 -- 发布时间：2015/9/1 16:09:00 -- 《指南》中有关于dt.rows(r)(c)的用法吗？ 《指南》中有关于dt.rows(r)(c)的用法吗？ |
| -- 作者：大红袍 -- 发布时间：2015/9/1 16:20:00 -- 等同于
Dim nr As Row = dt.rows(r) Sheet(r +1, c).Value = nr(c) |