| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]使用代码往表增加数据失败 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159870) |
| -- 作者：crazyfengyu -- 发布时间：2021/1/12 8:51:00 -- [求助]使用代码往表增加数据失败 在采购的表中，进行入库，将采购的商品全部添加到库存中。添加后有时候代码执行完成了但是实际上库存表上没有添加成功。 |
| -- 作者：有点蓝 -- 发布时间：2021/1/12 9:04:00 -- 请贴出具体代码举例说明：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150626 |
| -- 作者：crazyfengyu -- 发布时间：2021/1/12 9:10:00 -- 入库按钮代码： if tables("采购明细").rows.count > 0 then
for each r1 as row in tables("采购明细").rows
dim r2 as row = tables("库存").addnew
r2("名称") = r1("名称")
r2("价格") = r1("价格")
r2("数量") = r1("数量")
next end if if datatables("库存").haschanges then
datatables("库存").save end if 执行上面代码，偶尔会出现库存表没有 增加新数据的情况
|
| -- 作者：有点蓝 -- 发布时间：2021/1/12 9:14:00 -- 这里不需要判断datatables("库存").haschanges，直接保存即可。 内部表还是外部表？外部表是什么数据库。项目和数据库是不是共享使用的？
|
| -- 作者：crazyfengyu -- 发布时间：2021/1/12 9:16:00 -- 外部表，使用的sql server数据库，共享使用是什么意思？就是引入了外部表直接使用的。 |
| -- 作者：有点蓝 -- 发布时间：2021/1/12 9:26:00 -- 这样判断一下 if tables("采购明细").rows.count > 0 then
for each r1 as row in tables("采购明细").rows
dim r2 as row = tables("库存").addnew
r2("名称") = r1("名称")
r2("价格") = r1("价格")
r2("数量") = r1("数量")
next datatables("库存").save if datatables("库存").haschanges then msgbox("保存失败") end if else msgbox("没有可添加的数据") end if 如果没有弹出提示，库存表还是没有数据，到数据库里看看是否有新增到数据。 可以跟踪数据库，看有没有执行到保存的sql
|