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


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

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


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:32: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
MessageBox.Show(1)
For r As Integer = sheet.Rows.Count To dt.Rows.Count+sheet.Rows.Count - 1 '填入数据
MessageBox.Show(2)
    For c As Integer = 0 To dt.Cols.Count -1
MessageBox.Show(3)
        Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)
MessageBox.Show(4)
    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()
   运行 显示3
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

4没出来

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


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

messagebox.show(r)
messagebox.show(sheet.Rows.Count)

看看.为什么会得出负数.没道理的呢
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

我知道了.修改一下
dim rc as integer =  sheet.Rows.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(r-rc)(c)
    Next
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:46: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
messagebox.show(r)
messagebox.show(sheet.Rows.Count)
        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
 运行2个都显示5
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:47: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
messagebox.show(r)
messagebox.show(sheet.Rows.Count)
        Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)
messagebox.show(r)
messagebox.show(sheet.Rows.Count)
    Next
    Dim St2 As XLS.Style = Book.NewStyle
    St2.Format = "yyyy-MM-dd"
    Sheet.Cols(dt.Cols("结束时间").Index).Style = st2
Next

这样的话：也只显示2个5   
 Sheet(r +1, c).Value = dt.rows(r-sheet.Rows.Count)(c)这里过不去

索引 -2 不是为负数，就是大于行数。
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：79 积分：584 威望：0 精华：0 注册：2015/5/27 17:19:00 		  发帖心情 Post By：2015/6/6 10:50: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
messagebox.show(r)
messagebox.show(c)
messagebox.show(sheet.Rows.Count)
        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
显示5，0，5
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

用14楼.不行就上例子.

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


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

谢谢老师！  我得弄懂这个才行 ，老师给点链接吧！

 回到顶部
总数 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.04688 秒, 4 次数据查询