[5分]2.4以后平台中关于LoadRecord函数使用的疑问。。

各位好：

    2.4以后的新平台中加入了LoadRecord函数，大大的减少了代码的使用，但问题来了，在采购订单中，有一个完成数量，默认为空的需要转化成0，以前的代码中分别体现，

      Dim cnn:   Set cnn = CurrentProject.Connection
      Dim strSQL:    strSQL = "SELECT * FROM [采购订单查询_明细] WHERE [采购订单号]=" & SQLText(Me![采购订单号])
      Dim rst:  Set rst = OpenADORecordset(strSQL, , cnn)
      Dim rstTmp:   Set rstTmp = CurrentDb.OpenRecordset("TMP_采购订单明细表")
    Do Until rst.EOF
        rstTmp.AddNew
        rstTmp![采购订单号] = rst![采购订单号]
        rstTmp![物料ID] = rst![物料ID]
        rstTmp![物料名称] = rst![物料名称]
        rstTmp![物料规格] = rst![物料规格]
        rstTmp![单位] = rst![单位]
        rstTmp![数量] = rst![数量]
        rstTmp![单价] = rst![单价]
        rstTmp![已入库数量] = Nz(rst![已入库数量], 0)      ‘空值转化为0
        rstTmp.Update
        rst.MoveNext
    Loop
    rst.Close
    rstTmp.Close
te
    现在的直接一句： LoadRecord "TMP_采购订单明细表", "SELECT * FROM [采购订单查询_明细] WHERE [采购订单号]=" & SQLText(Me![采购订单号]), CurrentProject.Connection

没办法只好再使用原来的代码来搞定，不知还有什么好的法子没得。。