快速开发平台中创建自己的记录集

时　间:2018-04-28 11:40:45
作　者:iamlaosong   ID：65695  城市：合肥
摘　要:快速开发平台开发过程中中需要查询子表中的费用汇总，并将费用说明合成字符串填到主表中的代码。
正　文:

快速开发平台开发过程中中需要查询子表中的费用汇总，并将费用说明合成字符串填到主表中。RunSQL不能返回结果，Access虽然没有游标一说，但记录集和游标的作用差不多，所以可以打开一个记录集，再逐条处理其中的记录。其中部分代码如下：

        If fExtraFee = 0 Then
            mEFlag = True     '从额外费用表中取费用
            strSQL = "Select EFee,EName FROM tblExtraFee Where LoadTo='" & fLoadTo & "'"
            Dim rst:    Set rst = ADO.OpenRecordset(strSQL)
            fExtraSpec = ""
            fExtraFee = 0
            Do While Not rst.EOF
                fExtraFee = fExtraFee + rst!EFee
                fExtraSpec = fExtraSpec & rst!EName
                rst.MoveNext
            Loop
            rst.Close
        End If