[求助]外部数据表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]外部数据表

共有5074人关注过本帖树形打印复制链接主题：[求助]外部数据表

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 10:30:00 [只看该作者]

老师，暂时不想更新，还是用过时代码吧。谢谢老师帮忙。

有点蓝

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

加好友

发短信

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/13 11:04:00 [只看该作者]

直接拼sql：

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
cmd.CommandText = "Insert Into 订单 (客户, 日期, 订单编号) Values('" & tables("xxx").curent("客户") & "', '" & tables("xxx").curent("日期") & "','" & tables("xxx").curent("订单编号") & "')"
cmd.ExecuteNonQuery

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 11:25:00 [只看该作者]

老师

此主题相关图片如下：image 1.png

有点蓝

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

加好友

发短信

等级：超级版主帖子：106028 积分：539233 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/7/13 11:29:00 [只看该作者]

curent改为current

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2020/7/13 12:38:00 [只看该作者]

老师，下面代码没有修改行而是增加了一行。

Dim cmd As New SQLCommand

cmd.C

With e.form

If .Controls("TextBox2").Value Is Nothing Then

MsgBox("货品编码不能为空!",64,"提示")

Else

cmd.CommandText = "Insert Into 库存商品 (货品编码, 货品类型, 计量单位) Values('" & Tables("修改_Table1").current("货品编码") & "', '" & Tables("修改_Table1").current("货品类型") & "','" & Tables("修改_Table1").current("计量单位") & "')"

cmd.ExecuteNonQuery

.Close()

End If

End With