Sql问题，个人认为很难请海理先生帮忙

zyz218

应是红色字那部分代码,会的朋友请帮帮在下!!

wuaza

虽然我的表达式也未能成功但至少得用dsum之类的，你用的是什么语句啊？查询语句不能这么写，也不能这么用。=DSum("出荷计画", "出荷计画"," year(出荷日)=" & Me.上年 & " and month(出荷日) = 1 and 产品名称='" & Me.上年计画子窗体.Form.产品名称 & "'")

zyz218

在下能力实在有限，所以天天泡论坦喽！也就常来求助，谢谢大侠出手相助，在下试试：）

zyz218

=" & Me.上年 & "方法和数据成员未找到？？？？？？

海狸先生

        Me.上年出荷子窗体.Controls("1月").Value = DSum("计画出荷", "出荷计画", "产品名称='" & 上年出荷子窗体.Form.产品名称.Value & "'")

zyz218

搞定了，多谢多谢wuaza 与 海狸先生

zyz218

突然发现海狸先生给的是一个条件。。。。。我试试改成多个条件。。。

zyz218

Private Sub Command5_Click()

Dim j As Integer

j = Me.上年出荷子窗体.Form.RecordsetClone.RecordCount

Me.上年出荷子窗体.Form.Recordset.MoveFirst

    For i = 1 To j

        Me.上年出荷子窗体.SetFocus

        Me.上年出荷子窗体.Controls("10月").Value = DSum("计画出荷", "出荷计画", " year(出荷日)='" & Me.上年.Value & "'and month(出荷日) = 10 and 产品名称='" & 上年出荷子窗体.Form.产品名称.Value & "'")        Me.上年出荷子窗体.Form.Recordset.MoveNext

    Next i

   

End Sub

上面为最终代码，在二位大侠的帮助下，总算闯过了一关，在此谢过了！！！