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

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

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

有点甜

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

加好友

发短信

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

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

什么字段都可以，比如

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

riyuan

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

加好友

发短信

等级：小狐帖子：316 积分：2466 威望：0 精华：0 注册：2013/4/9 11:49:00

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

时间和金额列也一起插入数据。但时间和金额字段的值来源于textbox 控件

有点甜

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

加好友

发短信

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

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

Dim cmd As new SQLCommand
cmd.C
If Tables("pl_Table1").Filter > "" Then
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号,缴费金额) Select{hkxx}.户号,姓名,身份证号,{ylz}.医疗证号,'" & e.Form.Controls("TextBox1").text & "' from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 where " & Tables("pl_Table1").Filter.replace("户号","{hkxx}.户号")
Else
cmd.CommandText = "Insert into {xlh} (户号,姓名,身份证号,合作医疗证号,缴费金额) select {hkxx}.户号,姓名,身份证号,医疗证号,'" & e.Form.Controls("TextBox1").Text & "' from {hkxx} INNER JOIN {ylz} ON {hkxx}.户号 = {ylz}.户号 "
End If
cmd.ExecuteNonQuery