我對在 VB 中編碼還很陌生，經過大量試驗后我找不到一種方法來做到這一點。我試圖讓一個組合框顯示一系列年份，從日期變數中指定的年份開始一直運行到當前日期，當前日期顯示為默認日期。這是我嘗試設定資料源的最新版本代碼。
Dim yearDataSource = Enumerable.
Range(myEarliestDate.Year, myEarliestDate.Year - DateTime.Now.Year 1).
OrderByDescending(Function(y) y).
ToList()
如果您能提供任何幫助，我將不勝感激。請保持簡單。
uj5u.com熱心網友回復：
這個功能會起作用
Private Function GetYears(startDate As Date, endDate As Date) As List(Of Integer)
Dim startYear = startDate.Year
Dim endYear = endDate.Year
Dim years = (From year In Enumerable.Range(startYear, endYear - startYear)
Order By year Descending)
Return years.ToList()
End Function
示例呼叫：
Dim startDate = Date.Now.AddYears(-10)
Dim endDate = Date.Now.AddYears(1)
cmbYears.DataSource = GetYears(startDate, endDate)
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/536770.html
標籤：网络