Office中国论坛/Access中国论坛

标题: 如何实现双点录入功能 [打印本页]

---

作者: Balance.Xue    时间: 2015-3-13 10:55
标题: 如何实现双点录入功能
上方‘产品表’子窗，双点后，向下方‘明细表’子窗增添对应行问题1：功能如何实现，代码怎么写
问题2：如何选取需要的列进行录入

谢谢。

[attach]55886[/attach]



[attach]55887[/attach]

---

作者: roych    时间: 2015-3-13 11:15


供参考：
http://www.office-cn.net/thread-119118-1-1.html
不过我的例子里不是双击，而是单击。例子中并没有绑定数据表，而是点击新增时再执行追加语句。
可以按住Shift键打开，然后导出密码，再用别的组登录，以便测试功能；或者查看源码。

---

作者: todaynew    时间: 2015-3-13 11:51


1、删除销售明细表中的品名、类别、销售单价、基材成本、人工成本、批发单价六个字段，增加cpid和数量字段。

2、建立查询：
select a.cpid,b.品名,b.类别,b.销售单价,b.基材成本,b.人工成本,b.批发单价,a.数量,b.销售单价*a.数量 as 销售金额
from 销售明细 as a inner join 产品 as b on a.cpid=b.cpid

3、将查询做为销售明细子窗体的数据源

4、在产品子窗体的VB视图中写一个自定义函数
function SetVal()
    dim ctrls as controls
    set ctrls=me.parent.form.controls('销售明细子窗体').form.controls
    ctrls("ddid").value=me.ddid.value
    set ctrls=nothing
end function

5、在产品子窗体的加载事件中写：

dim ctrl as control
for each ctrl in me.controls
    if ctrl.controltype<>acLabel then
       ctrl.OnDblClick="=SetVal()"
    end if
next

---

作者: Balance.Xue    时间: 2015-3-14 19:59
谢谢todaynew，本人愚钝，按你说的未能修改成功，
可否帮我吧实例改好，我参照学习下

---

作者: xlb004    时间: 2015-3-15 10:58
他他探讨探讨他探讨探讨探讨探讨他天天天天

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3