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


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

主题：求老师帮忙了！
帅哥哟，离线，有人找我吗？
q2649295605
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
q2649295605
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


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

老师：还有  它导出的整个表，不是当前行！！！老师您再看看
 回到顶部
总数 15 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询