批量增加记录 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 批量增加记录

共有4088人关注过本帖树形打印复制链接主题：批量增加记录

riyuan

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00

批量增加记录 发帖心情

Post By：2014/9/2 12:01:00 [只看该作者]

请教如何如何在筛选后将表中的记录增加到xlh表中

下载信息 [文件大小：下载次数： ]
点击浏览该文件:dd.zip

lihe60

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2014/9/2 12:08:00 [只看该作者]

filler不行吗？

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/2 12:10:00 [只看该作者]

参考

http://www.foxtable.com/help/topics/0680.htm

lihe60

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6885 积分：43595 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2014/9/2 12:13:00 [只看该作者]

先重定向，再filler。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/2 14:20:00 [只看该作者]

Dim cmd As new SQLCommand
cmd.ConnectionName = "hk"
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号) select 户号,姓名,身份证号 from {hkxx} where " & Tables("pl_Table1").Filter
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号) select 户号,姓名,身份证号 from {hkxx} "
End If
cmd.ExecuteNonQuery

riyuan

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：404 积分：3080 威望：0 精华：0 注册：2013/4/9 11:49:00

Post By：2014/9/2 14:37:00 [只看该作者]

Dim cmd As new SQLCommand

cmd.C

If Tables("pl_Table1").Filter > "" Then

cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号) select 户号,姓名,身份证号,{ylz}.医疗证号 from {hkxx} where INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 " & Tables("pl_Table1").Filter

Else

cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗号) select 户号,姓名,身份证号 from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "

End If

cmd.ExecuteNonQuery

这段代码出错在哪里。我想再在里面添加一个ylz表中的字段到xlh表中

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/2 14:48:00 [只看该作者]

Dim cmd As new SQLCommand
cmd.ConnectionName = "hk"
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号) Select{hkxx}.户号,姓名,身份证号,{ylz}.医疗证号 from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 where " & Tables("pl_Table1").Filter.replace("户号","{hkxx}.户号")
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号) select {hkxx}.户号,姓名,身份证号,医疗证号 from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "
End If
cmd.ExecuteNonQuery