以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  compute条件中如何加入变量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85698)
--  作者：jpg7
--  发布时间：2016/6/1 11:09:00
--  compute条件中如何加入变量
 Dim nv As WinForm.NavBar = Forms("订单明细").Controls("NavBar1")
 Dim ztl As WinForm.Label = Forms("订单明细").Controls("状态栏")
 Select Case nv.SelectedPage.Name
        Case "砂光"
Dim Byc As Double = DataTables("订单明细").Compute("Sum(产值)","砂光日期 = #" & Date.today.AddDays(-1) & " # And 砂光检验 = 1 And 砂光 <> \'TG\'") 

end select
将红色文字用nv.SelectedPage.Name代替，应该怎么写
--  作者：大红袍
--  发布时间：2016/6/1 11:12:00
--  

dim str As String = nv.SelectedPage.Name

Dim Byc As Double = DataTables("订单明细").Compute("Sum(产值)", str & "日期 = #" & Date.today.AddDays(-1) & " # And " & str & "检验 = 1 And " & str & " <> \'TG\'") 

--  作者：jpg7
--  发布时间：2016/6/1 11:33:00
--  
谢谢