以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69517)

--  作者:q2649295605
--  发布时间:2015/6/6 14:15:00
--  问题
Dim rc As Integer =  sheet.Rows.Count \'
Dim rf As Integer=dt.Current("_Identify").Count
For r As Integer = rc To dt.Rows.Count+rc - 1

     For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r+1, c).Value = dt.Rows(rf)(c)
    Next
 老师帮我看下。

--  作者:q2649295605
--  发布时间:2015/6/6 14:20:00
--  
怎么表示当前行的行数


--  作者:Bin
--  发布时间:2015/6/6 14:37:00
--  
你要干嘛.直接用我给你写的代码
--  作者:q2649295605
--  发布时间:2015/6/6 14:45:00
--  
你给我的代码  我试过了!  导出的不是当前行   而是整个表


--  作者:Bin
--  发布时间:2015/6/6 14:50:00
--  
为什么提问和挤牙膏一样,一次挤出来一点......
--  作者:Bin
--  发布时间:2015/6/6 14:55:00
--  
                    dim rc as integer =  sheet.Rows.Count 
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(rc, c).Value = tables("XX").current(dt.Cols(c).name)
    Next
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2