怎么能使双击点出的新窗体为添加项 并带有原有的窗体的信息

zhylee

{:soso_e121:}

andymark

主子窗体吧，主窗体是显示需要录入的项目，子窗体则显示已保存的数据

zhylee

不是；
我想在不同的窗体中实现
就想存销货物一样
我要在存货单上点出销货单

Henry D. Sy

你要做个例子上来
然后，说明你想要得到的结果！

zhylee

就是实现发货单的效果
点击订单管理中的一条订单
提示发货弹出发货单窗口
显示新建的发货单并将订单的基本信息显示在发货单上
保存发货单后
订单上已发数量相应调整{:soso_e121:}

fawkes

看看，学学

Henry D. Sy

1. Function Openfrm()
   
2.     DoCmd.OpenForm "发货单", acNormal, , , acFormAdd
   
3. End Function
   
4. 
   
5. Private Sub Form_Current()
   
6. strNo = Me.订单编号
   
7. blno = Me.原始编号
   
8. strName = Me.公司名称
   
9. End Sub
   
10. 
    
11. Private Sub Form_Load()
    
12.     Dim ctl As Control
    
13.     For Each ctl In Me.Controls
    
14.         If TypeOf ctl Is TextBox Then
    
15.             ctl.OnClick = "=openfrm()"
    
16.         End If
    
17.     Next
    
18. End Sub

复制代码

zhylee

能不能改成双击完成任务
还有数量没有在订单管理中显示
发货单也没有此单的明细！！！

roych

把里面的：
ctl.OnClick = "=openfrm()"
改成
ctl.OnDblClick = "=openfrm()"
试试。