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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]新增删除代码问题

共有5354人关注过本帖树形打印复制链接主题：[求助]新增删除代码问题

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

Post By：2014/6/18 14:42:00 [只看该作者]

上面表格是绑定存款表是锁定的底下表格是绑定新增表可以在里面增加要添加到存款表里面的数据

看了下新增表里也有对方帐
图片点击可在新窗口打开查看

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

号字段的半天看不出问题在哪里~

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/18 14:44:00 [只看该作者]

报错的是存款表找不到对方账号

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

表结构里发现有对方帐号 发帖心情

Post By：2014/6/18 14:51:00 [只看该作者]

报错意思是说存款表我没有对方帐号那一列吧~

但我看了

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

在第7行而且名字也没错~ 纠结啊！！

有点甜

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

加好友

发短信

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

Post By：2014/6/18 14:53:00 [只看该作者]

帐字写错了账

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/6/18 14:55:00 [只看该作者]

上例子

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

是这个问题~万恶的输入法 发帖心情

Post By：2014/6/18 15:08:00 [只看该作者]

麻烦了~不过貌似保存代码还是有点问题

新增表数据有2行我点一下保存应该是增加两行数据到存款表中并清空新增表

但是我保存按钮只能存第1行数据在点一下保存按钮在存一行数据~

代码如下：

For Each dt As Row In Tables("新增表").Rows

Dim dr As Row =Tables("存款表").AddNew

dr("记账日")=dt("记账日")

dr("交易时间")=dt("交易时间")

dr("交易地点")=dt("交易地点")

dr("支出")=dt("支出")

dr("收入")=dt("收入")

dr("账户余额")=dt("账户余额")

dr("对方账号")=dt("对方账号")

dr("对方户名")=dt("对方户名")

dr("币种")=dt("币种")

dr("摘要")=dt("摘要")

dr("入款方式")=dt("入款方式")

dt.Delete

dr.Save

这个逻辑有什么问题嘛？
图片点击可在新窗口打开查看

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

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

good131577

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

加好友

发短信

等级：幼狐帖子：184 积分：1148 威望：0 精华：0 注册：2014/6/10 20:24:00

帐字写错了账被有点甜大哥发现了 发帖心情

Post By：2014/6/18 15:11:00 [只看该作者]

帐字写错了账

被有点甜大哥发现了图片点击可在新窗口打开查看

有点甜

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

加好友

发短信

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

Post By：2014/6/18 15:11:00 [只看该作者]

For Each dt As Row In Tables("新增表").Rows
    Dim dr As Row =Tables("存款表").AddNew
    dr("记账日")=dt("记账日")
    dr("交易时间")=dt("交易时间")
    dr("交易地点")=dt("交易地点")
    dr("支出")=dt("支出")
    dr("收入")=dt("收入")
    dr("账户余额")=dt("账户余额")
    dr("对方账号")=dt("对方账号")
    dr("对方户名")=dt("对方户名")
    dr("币种")=dt("币种")
    dr("摘要")=dt("摘要")
    dr("入款方式")=dt("入款方式")
    dr.Save
Next
Tables("新增表").DataTable.DeleteFor("", Tables("新增表").Filter)