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'")
加好友 
发短信
Post By：2016/6/1 11:12:00 [显示全部帖子]
