Dim mon As String = MonthName(Date.Today.Month) '或者 Dim mon As String = Format((Date.Today,"MMM") Dim days As Integer = Date.DaysInMonth(Date.Today.Year,Date.Today.Month) Dim s As String For j As Integer = 1 To days s + = "'' As " & mon & j & "日," Next s = "Select '' As 房间号," & s.trim(",") DataTables("窗口1_Table1").Fill(s,"tzzt",True)