如何获取子窗体中的某一字段值

aslxt

例如：
    Set rec = New ADODB.Recordset
    rec.Open "select distinct  物料编号 from 入库 where 入库单ID='" & 入库单ID & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
    For I = 1 To rec.RecordCount
         ‘逐个更新不同物料编码的库存数量
       x=dsum（"入库数量"，"入库"，"入库单ID=’” & 入库单ID &”‘ and  物料编号='" & rec.Fields(0) &"'”）
curdb.Execute "update 库存 set 原有库存=" & X0 & ",现有库存=" & X0+X & ",库存变动=" & x & ",库存变动日期=#" & Sdate & "# where 物料编号='" & rec.Fields(0)  & "'

     rec.MoveNext
    next i

stvent

例如：
    Set rec = New ADODB.Recordset
    rec.Open "select distinct  物料编号 from 入库 where 入库单ID='" & 入库单ID & "'", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDi ...
aslxt 发表于 2009-8-6 11:19

如果这样，该如何定议SNum及Cnt,？

stvent

x=dsum（"入库数量"，"入库"，"入库单ID=’” & 入库单ID &”‘ and  物料编号='" & rec.Fields(0) &"'”）

这一段出错

stvent

还在头痛中

aslxt

先注意符号

aslxt

注意符号和空格要符合标准，当然表、字段名称也要符合你的表的东东
x=dsum("入库数量","入库","入库单ID=’” & 入库单ID & "'  and  物料编号='"  & rec.Fields(0) & "'")

stvent

注意符号和空格要符合标准，当然表、字段名称也要符合你的表的东东
x=dsum("入库数量","入库","入库单ID=’” & 入库单ID & "'  and  物料编号='"  & rec.Fields(0) & "'")
aslxt 发表于 2009-8-6 19:30

编译没错，在运行的时候出错！

aslxt

把示例库传上来

stvent

例如：在同一入库单上进行A1、A10、A101、A102各入库数量2，而库存单上现时A1、A10、A101、A102分别为0、1、1、28，如正常入库，应该为2、3、3、30，请aslxt帮忙看看!

stvent

各位早晨