如何将窗口的MaxHeight属性设置为屏幕高度?
XAML:
# config/intializers/initialize.rb
ANY_CONSTANT = 'xyz'
答案 0 :(得分:7)
在控件的代码隐藏页面中,您可以将窗口的Dim strSQL As String
Dim db As Database
Set db = CurrentDb
strSQL = "INSERT INTO MAINRESULT(EXNAME, MASTER_TICKER,MASTER_CUSIP,TL_TICKER,TL_CUSIP,FC_CUSIP,FC_TICKER) " & _
"SELECT EXC AS MY_EXC, " & _
"SUM(IIF(MASTER_TICKER <> 'NULL', 1, 0)) AS MY_MASTER_TICKER, " & _
"SUM(IIF(MASTER_CUSIP <> 'NULL', 1, 0)) AS MY_MASTER_CUSIP, " & _
"SUM(IIF(TL_TICKER <> 'NULL', 1, 0)) AS MY_TL_TICKER, " & _
"SUM(IIF(TL_CUSIP <> 'NULL', 1, 0)) AS MY_TL_CUSIP, " & _
"SUM(IIF(FC_CUSIP <> 'NULL', 1, 0)) AS MY_FC_CUSIP, " & _
"SUM(IIf(FC_TICKER <> 'NULL', 1, 0)) As MY_FC_TICKER " & _
"FROM TESTDATA GROUP BY EXC;"
DoCmd.RunSQL strSQL
设置为
MaxHeight
或者您可以使用System.Windows.SystemParameters.PrimaryScreenHeight