dim aa as string

aa = "lwgNo01"

Compute("Sum(mtrlwgNo01)","[aa] = \'" & e.DataRow("mtrNo") & "\'")
其中[aa]可以这样用吗？

dim aa as string

aa = "lwgNo01"

Compute("Sum(mtrlwgNo01)", aa & " = " & e.DataRow("mtrNo") )

看看：

http://www.foxtable.com/webhelp/topics/1284.htm

还是不行：

此主题相关图片如下：qq截图201910101.png

Dim eagi,eagj,tabi,tabj,eagint,i,j,ci,li,mstr,mchan As Integer
Dim eagbooks As new List (of String)
Dim eagstring,eagstr,wstr,ename,echan As String
\'Dim antilwgs(j) As Integer
If e.DataCol.name = "xuhao" Then
    eagi=0
    For Each  eagbook As DataTable In DataTables
        eagstring = right(eagbook.name,2)
        If eagstring = "gc" Then
            eagbooks.Insert(eagi,eagbook.name)
            eagi = eagi+1
           
        End If
    Next
    eagj = eagbooks.count
End If
For Each ww As String In eagbooks
    output.show(ww)
Next
\'以下代码,将各项工程最高计量次数存入变量j中
For i=0 To eagj-1 Step 1
    li=1
    For Each eagcol As DataCol In DataTables(eagbooks(i)).DataCols
        If  eagcol.name.Contains("mtrNo") Then
            eagstr = right(eagcol.name,2)
            ename = "mtrlwgNo"
            mstr = "mtrNo"
            echan = ename & cstr(0) & cstr(1)
            mchan = mstr & cstr(0) & cstr(1)
            output.show("echan=" & echan)
            Integer.TryParse(eagstr,eagint)
            If j < eagint Then
                j = eagint
            End If
            li=li+1
        End If
        Dim antilwgs(j+1) As Double
        antilwgs(1) = DataTables(eagbooks(1)).Compute("Sum(mtrlwgNo01)", echan & " = \'" & e.DataRow("mtrNo") & "\'" )    
                                                                         \'   t  & " = \'" & Vars("产品") &  "\'")

      
\'Compute("Sum(mtrlwgNo01)", aa & " = \'" & e.DataRow("mtrNo") & "\'")
 e.DataRow("antilwg") = antilwgs(i)
       
       
       
    Next
    output.show("i=" & i)
Next

output.show("eagint=" & eagint)

要实现的是[mtrlwgNo01] [mtrlwgNo02]。。。分别符合“第01期”、“第02期”。。。。，用变量j来设整列名