| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]增加行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194611) |
| -- 作者：苏州老街 -- 发布时间：2024/12/27 14:05:00 -- [求助]增加行 老师，怎样把下面标出的代码添加到增加行的代码里。 If Tables("入库明细").Current.isnull("入库日期") OrElse Tables("入库明细").Current.isnull("经办人") OrElse Tables("入库明细").Current.isnull("入库_数量") \' OrElse .... msgbox("有数据没有录入完成") End If If Tables("入库").Rows.Count = 0 Then Return End If Tables("入库.入库明细").AddNew() Tables("入库.入库明细").Current("客户名称") = Tables("入库").Current("供应商") Tables("入库.入库明细").Current("入库单编号") = Tables("入库").Current("入库单编号") |
| -- 作者：有点蓝 -- 发布时间：2024/12/27 14:48:00 -- dim pr as row = Tables("入库").Current If pr is nothing Then Return End If dim cr as row = Tables("入库明细").Current
If cr isnot nothing Then If cr .isnull("入库日期") OrElse cr .isnull("经办人") OrElse .......... msgbox("有数据没有录入完成") Return End If dim r as row = Tables("入库.入库明细").AddNew() r("客户名称") = pr("供应商") r("入库单编号") = pr("入库单编号") End If |
| -- 作者：苏州老街 -- 发布时间：2024/12/27 18:02:00 -- 老师，我把代码复制到按钮里没有提示 |
| -- 作者：chnfo -- 发布时间：2024/12/27 18:12:00 -- 没有必要这么复杂。 入库表：ID，编号，名称，…… 入库表明细：ID，入库表ID，入库单号（表达式列），……） 建关联关系(RK2D)，入库表.ID＝入库表明细.入库表ID 入库单号＝入库表.编号 就可以了，没有必要用数据列填充
|
| -- 作者：有点蓝 -- 发布时间：2024/12/28 8:45:00 -- 以下是引用苏州老街在2024/12/27 18:02:00的发言：
说明明细表当前行的数据都录入完毕了
老师，我把代码复制到按钮里没有提示 |