Foxtable(狐表)用户栏目专家坐堂 → 红色代码为何获取的是第二行数据?


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

主题:红色代码为何获取的是第二行数据?

帅哥哟,离线,有人找我吗?
evolymft
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
红色代码为何获取的是第二行数据?  发帖心情 Post By:2024/3/29 14:10:00 [只看该作者]

Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("g:\1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '第1张表
Dim dr As DataRow = DataTables("进货").DataRows(0)
Ws.Cells(2, 3) = dr("品名")

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 14:11:00 [只看该作者]

datatable是没有顺序的,如果要取界面的第1行应该使用table

Dim dr As Row = Tables("进货").Rows(0)

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2024/3/29 14:17:00 [只看该作者]

谢谢老师

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2024/3/29 15:03:00 [只看该作者]

Dim App As New MSExcel.Application
App.Visible = True
Dim Wb As MSExcel.Workbook = App.WorkBooks.Open("g:\1.xls")
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '第1张表
Dim r1 As Integer, c1 As New List(Of Integer) From {1, 2}, c2 As New List(Of String) From {"品名", "型号"}
For r1 = 0 To Tables("进货").Rows.Count - 1
    Ws.Cells(r1 + 3, c1) = Tables("进货").Rows(r1)(c2) 
Next r1

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2024/3/29 15:03:00 [只看该作者]

请老师修改红色代码,谢谢!

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 15:13:00 [只看该作者]

没看懂,截图说明一下

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2024/3/29 15:17:00 [只看该作者]

用集合逐一对应生成数据

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2024/3/29 15:19:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
evolymft
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1028 积分:7191 威望:0 精华:0 注册:2016/6/16 15:23:00
  发帖心情 Post By:2024/3/29 15:19:00 [只看该作者]

不知道如何截图


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106001 积分:539092 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/3/29 15:36:00 [只看该作者]

上传方法:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 回到顶部
总数 21 1 2 3 下一页