以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]设置字符串为列名  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=153557)

--  作者:天一生水
--  发布时间:2020/8/14 16:53:00
--  [求助]设置字符串为列名
蓝老师好!
我设置字符串str1、str2,怎样放入下面的代码中,来代替列名?
谢谢!

Dim str1 As String = ""    \'列名1
Dim str2 As String = ""    \'列名2

‘-----------
Sum = DataTables("统计表1").Compute("Sum(涨跌幅_1)", "列名1 = \'" & Ary(0) & "\' And 列名2= \'" & Ary(1) & "\'")






--  作者:有点蓝
--  发布时间:2020/8/14 17:01:00
--  
Sum = DataTables("统计表1").Compute("Sum(涨跌幅_1)", "列名1 = \'" & str1  & "\' And 列名2= \'" & str2  & "\'")
--  作者:天一生水
--  发布时间:2020/8/14 17:45:00
--  

列名是变量,这样写行了:

 

 

Sum = DataTables("统计表1").Compute("Sum(涨跌幅_1)", str1  & " = \'" & Ary(0) & "\'  And " &  str2  & "= \'" & Ary(1) & "\'")

[此贴子已经被作者于2020/8/14 18:31:30编辑过]