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


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

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


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：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 积分：178524 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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


http://www.foxtable.com/help/topics/1485.htm
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

用14楼.不行就上例子.

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


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

连接之前就发给你了.就是那么些内容.剩下的,只是逻辑问题

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询