如何能实现我想要的功能

lyxiong　发表于：2010-06-27 09:43:58 　

各位老师、前辈大家好，在下有个难题不知如何解决：如何能实现在货品入库窗体中点击取旧单弹出进货单旧单提取窗体，在进货单旧单提取窗体中选取进库单号双击该单号来实现将该单号中的所有明细导出到货品入库窗体中，进行添加货品。

煮江品茶发表于：2010-06-27 11:38:25

Private Sub 进库单号_DblClick(Cancel As Integer)
Dim ssql As String
If IsNull(Forms!货品入库!进库单号) = False Then
    ssql = "INSERT INTO 货品入库表 ( 进库单号, 进库日期, 货品编码, 货品名称及规格, 包装, 件包装, 数量, 单位, 成本价, 成本额, 批发价, 零售价, 仓位 ) "
    ssql = ssql & "SELECT '" & Forms!货品入库!进库单号 & "',进库日期, 货品编码, 货品名称及规格, 包装, 件包装, 数量, 单位, 成本价, 成本额, 批发价, 零售价, 仓位 "
    ssql = ssql & "FROM 货品入库表 WHERE 进库单号='" & Me.进库单号.Value & "'"
    DoCmd.RunSQL ssql
End If
Forms!货品入库!货品入库明细.Form.Requery
DoCmd.Close
End Sub

Top

lyxiong 发表于：2010-06-27 19:10:13

可能问题说得不够明确，在货品入库窗体中点击取旧单弹出进货单旧单提取窗体，在进货单旧单提取窗体中选取进库单号双击该单号来实现将该单号中的所有明细导出到“货品入库表临时表”和“进库单表头临时表”同时在货品入库窗体中显示导入的明细记录从而在窗体中进行添加或删减货品。1楼版主老师的方法能提取旧单，但原来的取新单进行入库操作单个加入品种好象有点问题。望版主老师再给我改改，在此深表感谢！

Top

煮江品茶发表于：2010-06-27 19:22:20

你的实例不太能理解。

基本方法就是取窗体控件值和数据表值追加或者更新到目标表中。你可以尝试在查询设计视图中做出这样的追加查询或更新查询，然后将其在SQL视图中得到语句，最后复制到VB视图中进行相应的加工即可得到。

Top

lyxiong 发表于：2010-06-27 20:33:33

热心的版主老师您就再给我改改吧。我刚学，好多都不会做。

Top

王樵民发表于：2010-06-29 10:09:40

我已利用qq回复

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

如何能实现我想要的功能