以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求老师帮忙了！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69497)
--  作者：q2649295605
--  发布时间：2015/6/6 10:01:00
--  求老师帮忙了！
Dim dt As Table = Tables("维修")
Dim Book As New XLS.Book("d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls")
Dim Sheet As XLS.Sheet = Book.Sheets(0)

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
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next
Dim Proc As New Process
Book.Save("d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls")
Proc.File = "d:\\我的文档\\Foxtable项目\\存档\\售后记录.xls"
Proc.Start()



这个我运行试了几次,结果是：再次导出数据的时候会把原来相同位置的替代掉！

有两个问题：1.我不想把\'维修\'表的数据整体导出来，只想导出当前行。
                 2.不想替代原有的  在后面增加！



之前老师给的2个链接，我看了N遍了，光自己看，没有老师指导，还是想不出来这么去弄！
--  作者：Bin
--  发布时间：2015/6/6 10:04:00
--  
For r As Integer = sheet.Rows.Count To dt.Rows.Count+sheet.Rows.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next
--  作者：Bin
--  发布时间：2015/6/6 10:04:00
--  
For r As Integer = sheet.Rows.Count To dt.Rows.Count+sheet.Rows.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r)(c)
    Next
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next
--  作者：q2649295605
--  发布时间：2015/6/6 10:06:00
--  
老师：现在不是格式问题了！！！还是回到昨天的那个问题了！
有两个问题：1.我不想把\'维修\'表的数据整体导出来，只想导出当前行。
                 2.不想替代原有的  在后面增加！
--  作者：q2649295605
--  发布时间：2015/6/6 10:07:00
--  
您 昨天给了我2个链接 关于 数据导出  和合并数据的！我看了N遍了 理解不了您的意思！还得您来指导下下！！！
--  作者：q2649295605
--  发布时间：2015/6/6 10:17:00
--  
不 好意思  ！我太粗心！

不过 现在这样：运行错误   索引 5 不是为负数，就是大于行数。
--  作者：Bin
--  发布时间：2015/6/6 10:20:00
--  
For r As Integer = sheet.Rows.Count To dt.Rows.Count+sheet.Rows.Count - 1 \'填入数据
    For c As Integer = 0 To dt.Cols.Count -1
        Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)
    Next
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next
--  作者：q2649295605
--  发布时间：2015/6/6 10:22:00
--  
索引 -2 不是为负数，就是大于行数。
--  作者：Bin
--  发布时间：2015/6/6 10:25:00
--  
按到里是不可能会出现这个问题的.你调试一下看看是那一行报错.


http://www.foxtable.com/help/topics/1485.htm
--  作者：q2649295605
--  发布时间：2015/6/6 10:28:00
--  
.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,清楚提示,Button_save,Click
详细错误信息：
索引 -2 不是为负数，就是大于行数。