行的计算问题

                     行的计算问题（业务指标数据根据归属关系转化为统计报表）

业务工作中制作统计报表时，常将业务指标数据通过归属关系，转化为统计报表，用Excel可以实现，但Access如何实现？请哪位大师帮助给出SQL代码或VBA代码。

最好能给个自定义函数，根据取数行属性，查找指标编码相应的数据值， 以归属关系公式进行计算 ，同样再根据计算行属性，查找行代码对应的数据值，以归属关系公式进行计算。

我编写的不完善自定义函数，请帮助修改：

Option Compare Database

'列计算自定义函数未解决列名与abc函数冲突问题
Public Function Ljs(A列, B列, C列, 公式)
    Dim stemp
    For N = 1 To Len(公式)
        If Mid(公式, N, 1) = "a" Then
            stemp = stemp & A列
            
        ElseIf Mid(公式, N, 1) = "b" Then
            stemp = stemp & B列
            
        ElseIf Mid(公式, N, 1) = "c" Then
            stemp = stemp & C列
            
        Else
            stemp = stemp & Mid(公式, N, 1)
        End If
    Next N
    Ljs = Eval(stemp)
End Function

'行计算自定义函数未完善不能使用
Public Function Hjs(id, 数据, 公式)
    Dim idNum As Integer
    Dim sjvar As Variant
    Dim stemp
    For N = 1 To Len(公式)
        If Mid(公式, N, 1) = id Then
            idNum = id
            sjvar = DLookup("[数据值]", "指标数据", "[指标编码] = " & idNum)
            stemp = stemp & sjvar
        Else
            stemp = stemp & Mid(公式, N, 1)
        End If
    Next N
    Hjs = Eval(stemp)
End Function

行的计算问题