嗨专家,
需要一些帮助才能在我的代码中排除星期六和星期日。见下文:
Need some help to exclude the saturdays and sundays in my code. See below:
推荐答案
你好,
这是一个例子我使用列表填充DataGridView,但不必是列表。列表用于确保每个日期实际上是一个日期。在存在日期的实际应用程序中,开发人员应确保使用断言确定日期,这可以通过多种方式完成。
Here is an example where I populate the DataGridView with a list but does not have to be a list. A List is used to ensure each date is actually a date. In a real application when dates are present you the developer should ensure they are dates using assertion which can be done many different ways.
这里的关键是一个函数用于lambda语句用于排除周末日期。
The key here is a function used in a lambda statement to exclude weekend dates.
用于填充DataGridView的类的定义
Definition of the class to populate the DataGridView
Public Class Item Public Property EventName() As String Public Property EventDate() As Date End Class工作示例
Public Class Form2 Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load Dim itemList As New List(Of Item) From { New Item With {.EventName = "A", .EventDate = #5/1/2019#}, New Item With {.EventName = "B", .EventDate = #5/2/2019#}, New Item With {.EventName = "C", .EventDate = #5/3/2019#}, New Item With {.EventName = "D", .EventDate = #5/4/2019#}, New Item With {.EventName = "E", .EventDate = #5/5/2019#}, New Item With {.EventName = "F", .EventDate = #5/6/2019#}, New Item With {.EventName = "G", .EventDate = #5/7/2019#}, New Item With {.EventName = "H", .EventDate = #5/8/2019#}, New Item With {.EventName = "I", .EventDate = #5/9/2019#}, New Item With {.EventName = "J", .EventDate = #5/10/2019#}, New Item With {.EventName = "K", .EventDate = #5/11/2019#}, New Item With {.EventName = "L", .EventDate = #5/12/2019#} } DataGridView1.DataSource = itemList End Sub Private Sub excludeWeekendDates_Click(sender As Object, e As EventArgs) _ Handles excludeWeekendDatesButton.Click Dim source = CType(DataGridView1.DataSource, List(Of Item)) DataGridView1.DataSource = source.Where(Function(row) IsWorkDay(row.EventDate)).ToList End Sub Public Function IsWorkDay(sender As DateTime) As Boolean Select Case sender.DayOfWeek Case DayOfWeek.Saturday Return False Case DayOfWeek.Sunday Return False Case Else Return True End Select End Function End Class点击按钮之前和之后
更多推荐
需要在datgridview中排除星期六和星期日
发布评论