当窗体上的工价保存到子窗体里，再如何保存到表里？

goto2008

请看图片。。。

工价，我是采用。。。

工序编号组合框，

当工序编号下拉选择后，会自动带出工序、工价。

现在有一个问题就是，工价可以子窗体时体现出来，但是表里却没有工价。

这样，我在做计件报表时。。。计件工资由于没有工价。导致计件工资为0

goto2008

汗，问题找出来了。。。。
是属性那边

可用，，，，，我弄成否了

所以保存不到表里。。

goto2008

大哥。。你说工价怎么保存到表里就可以了。。。

因为工资报表。我不是用ACCESS的。。我是要导到EXCEL

Henry D. Sy

稍微看了下，你的工价是邦定的，焦点移开该记录，记录就自动保存了。
至于，工资报表，你只要把计件数量和工价字段加到报表的记录源里去就行了。

goto2008

[ 本帖最后由 goto2008 于 2007-8-19 16:00 编辑 ]

Henry D. Sy

在表中，增加工价字段
然后
1。工价控件邦定到表
或
2。按钮事件---追加查询

[ 本帖最后由 dddddd 于 2007-8-19 10:55 编辑 ]

goto2008

工序编号的代码

Private Sub 工序编号_AfterUpdate()
Me.工人工序 = Me.工序编号.Column(1)
  Me.工价 = Me.工序编号.Column(2)
End Sub


==========================================
保存按扭的代码

Private Sub 保存到帮面领取表_Click()
On Error GoTo Err_保存到帮面领取表_Click

If Nz([工人编号]) = "" Or Nz([工人工序]) = "" Then

    MsgBox "工人编号、工人工序不能为空！", 64, "信息提示"
   
Else

    If MsgBox("你确定要保存吗？", vbYesNo + 32, "提示信息") = vbYes Then
   
    DoCmd.SetWarnings False

        If IsNull(Me.领取ID) = True Then
            DoCmd.RunSQL "insert into 帮面领取表(帮面ID,领取日期,工人编号,工人姓名,工序编号,工人工序,数量,工价) select[帮面ID],[领取日期],[工人编号],[工人姓名],[工序编号],[工人工序],[数量],[工价]"
        Else
            DoCmd.RunSQL "update 帮面领取表 set 帮面ID=Forms![帮面领取窗]![帮面ID],领取日期=Forms![帮面领取窗]![领取日期],工人编号=Forms![帮面领取窗]![工人编号],工人姓名=Forms![帮面领取窗]![工人姓名],工序编号=Forms![帮面领取窗]![工序编号],工人工序=Forms![帮面领取窗]![工人工序],数量=Forms![帮面领取窗]![数量],工价=Forms![帮面领取窗]![工价] WHERE (((帮面领取表.领取ID)=[Forms]![帮面领取窗]![领取ID]));"
        End If

    DoCmd.SetWarnings True
   
Me![领取分配子窗体].Requery


  Me![帮面领取数据透视子窗].Requery



Me.工人编号 = Null
Me.工人姓名 = Null

Me.工序编号 = Null

Me.工人工序 = Null

Me.数量 = Null
Me.工价 = Null



Me.领取ID = Null

Me.小计 = Null

End If

End If
Exit_保存到帮面领取表_Click:
    Exit Sub

Err_保存到帮面领取表_Click:
    MsgBox err.Description
    Resume Exit_保存到帮面领取表_Click
   
   
    Me.领取分配子窗体.Form.Recordset.MoveLast
   
End Sub