Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求老师帮忙了！


  共有3034人关注过本帖树形打印复制链接

主题：求老师帮忙了！
帅哥哟，离线，有人找我吗？
q2649295605
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		求老师帮忙了！  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:06:00 [只看该作者]

老师：现在不是格式问题了！！！还是回到昨天的那个问题了！
有两个问题：1.我不想把'维修'表的数据整体导出来，只想导出当前行。
                 2.不想替代原有的  在后面增加！
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:07:00 [只看该作者]

您 昨天给了我2个链接 关于 数据导出  和合并数据的！我看了N遍了 理解不了您的意思！还得您来指导下下！！！

 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:17:00 [只看该作者]

不 好意思  ！我太粗心！

不过 现在这样：运行错误   索引 5 不是为负数，就是大于行数。
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:22:00 [只看该作者]

索引 -2 不是为负数，就是大于行数。

 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2015/6/6 10:25:00 [只看该作者]

按到里是不可能会出现这个问题的.你调试一下看看是那一行报错.


http://www.foxtable.com/help/topics/1485.htm
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:28:00 [只看该作者]

.NET Framework 版本：2.0.50727.3655
Foxtable 版本：2014.11.11.1
错误所在事件：窗口,清楚提示,Button_save,Click
详细错误信息：
索引 -2 不是为负数，就是大于行数。
 回到顶部
总数 22 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04810 秒, 4 次数据查询