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代替,应该怎么写