快速开发平台开发过程中中需要查询子表中的费用汇总,并将费用说明合成字符串填到主表中。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