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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口快速录入

共有2913人关注过本帖树形打印复制链接主题：窗口快速录入

华琴

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

加好友

发短信

等级：婴狐帖子：31 积分：314 威望：0 精华：0 注册：2014/5/6 18:01:00

窗口快速录入 发帖心情

Post By：2014/10/11 20:30:00 [只看该作者]

双击单元格后，弹出录入窗口，但录入的值总是前一次所选行的值。怎么办呢？？

表的DoubleClick代码为：

Forms("出货单填制").Open

Tables("出货凭证表").AddNew()

Dim tbl As Table = Tables("查询_订单表2")

If tbl.Current IsNot Nothing Then

Tables("出货凭证表").Current("客户") = tbl.Current("客户")

End If

拜托各位高手指点一下……

sdlll

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

加好友

发短信

等级：幼狐帖子：170 积分：1499 威望：0 精华：0 注册：2012/8/15 15:02:00

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

要在Tables("查询_订单表2")所在控件的双击事件中设置Tables("出货凭证表").Current("客户") = tbl.Current("客户")

有点甜

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

加好友

发短信

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

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

这个意思？

Forms("出货单填制").Open
Dim tbl As Table = Tables("查询_订单表2")
If tbl.Current IsNot Nothing Then
Tables("出货凭证表").Current("客户") = tbl.Current("客户")
End If
Tables("出货凭证表").AddNew()

华琴

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

加好友

发短信

等级：婴狐帖子：31 积分：314 威望：0 精华：0 注册：2014/5/6 18:01:00

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

我是想，从未交订单中双击某个订单然后弹出出货单填制的窗口并自动导入相应的数据

可是双击后，导入的数据总是前一次选的数据

有点甜

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

加好友

发短信

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

Post By：2014/10/12 10:07:00 [只看该作者]

那你尝试这样写

Dim nr As Row = Tables("出货凭证表").AddNew()
Dim tbl As Table = Tables("查询_订单表2")
If tbl.Current IsNot Nothing Then
nr("客户") = tbl.Current("客户")
End If

Forms("出货单填制").Open

华琴

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

加好友

发短信

等级：婴狐帖子：31 积分：314 威望：0 精华：0 注册：2014/5/6 18:01:00

Post By：2014/10/12 10:30:00 [只看该作者]

搞定了！

谢谢！！有点甜。

下一主题 >> << 上一主题

主题：窗口快速录入