Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导入数据问题


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

主题：导入数据问题
帅哥哟，离线，有人找我吗？
15666282205
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		导入数据问题  发帖心情 Post By：2024/3/8 8:41:00 [只看该作者]

老师，狐表里的“生产计划表”，设计了新增按钮，序号自动增加，只增加一行。现在想从Excel导入，新增行数不固定，还得实现序号自动增加，我看了帮助，写了下面的代码，麻烦您给完善一下。
这是新增一行的代码：
DataTables("生产计划表").AddNew()
Tables("生产计划表").AutoSizeCols()
下面是导入按钮的代码：
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "xls文件|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ip As New Importer
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "生产计划表" '指定要导入的表
    ip.NewTableName ="生产计划" '导入后的表名
    ip.Format = "Excel" '指定导入格式
    ip.Import()
End If
另外，想实现选择文件的时候xls和xlsx都出现在选择的窗口里。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是要导入一个新表？还是要把execl里的数据合并到现有的表里？

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


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2024/3/8 9:13:00 [只看该作者]

在现有的表增加新的行，也就是把execl里的数据合并到现有的表里

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

合并要使用Merger ：http://www.foxtable.com/webhelp/topics/0685.htm

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "xls文件|*.xlsx;*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
dim xh as integer = DataTables("生产计划表").compute("max(序号)")
dim id as integer = DataTables("生产计划表").compute("max(_identify)")
    Dim ip As New Merger 
    ip.SourcePath = dlg.FileName '指定数据文件
    ip.SourceTableName = "生产计划表" 'execl文件里的sheet名称
    ip.NewTableName ="生产计划表" '导入后的表名
if dlg.FileName.endswith(".xls")
    ip.Format = "Excel" '指定导入格式
else
    ip.Format = "Excel2007" '指定导入格式
end if
    ip.Merge()
for each dr as datarow in DataTables("生产计划表").select("_identify>" & id,"_identify")
xh = xh + 1
dr("序号") = xh
next
End If
 回到顶部
帅哥哟，离线，有人找我吗？
15666282205
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2024/3/8 9:41:00 [只看该作者]

老师，提示以下错误：
编译错误：newtablename is not a member of "merger"
错误代码：ip.NewTableName ="生产计划表" '导入后的表名
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

Merger 的用法错误，根据帮助自己改一下

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


加好友 发短信
等级：一尾狐 帖子：484 积分：3826 威望：0 精华：0 注册：2019/1/13 10:12:00 		  发帖心情 Post By：2024/3/8 15:06:00 [只看该作者]

老师，现在能导入，出现一个问题：序号自动增加，是在当前显示序号的基础上增加，而不是根据数据库后台的最高序号上增加，麻烦您指导一下

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

dim xh as integer = DataTables("生产计划表").sqlcompute("max(序号)")

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