Dim Rq As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim Days As Integer
Days = (e.Form.Controls("结束日期").Value - Rq.Value).TotalDays
For i As Integer = 1 To days+1
    DataTables("假期安排").SQLDeleteFor("日期 = \'"& Rq.Value.AddDays(i-1) &"\'")
    DataTables("假期安排").Save()
    DataTables("假期安排").RemoveFor("日期 = \'"& Rq.Value.AddDays(i-1) &"\'")
Next

Dim Rq As WinForm.DateTimePicker = e.Form.Controls("起始日期")
Dim Days As Integer
Days = (e.Form.Controls("结束日期").Value - Rq.Value).TotalDays
For i As Integer = 1 To days+1
    DataTables("假期安排").SQLDeleteFor("日期 = #"& Rq.Value.AddDays(i-1) & "#")
    DataTables("假期安排").Save()
    DataTables("假期安排").RemoveFor("日期 = #"& Rq.Value.AddDays(i-1) & "#")
Next

还有个问题

    Dim d As Date = e.Form.Controls("起始日期").Value
    Dim Result As String = "日一二三四五六".Chars(d.DayOfWeek)
    If Result <> "六" Or Result <> "日" Then
        MessageBox.Show("起始日期是 周"& Result &"不存在调班,调班必须 周六 或 周日!", "提示")
    End If
这样就不对！如果改成：

    If Result = "一" Or Result = "二" Or Result = "三" Or Result = "四" Or Result = "五" Then
        MessageBox.Show("起始日期是 周"& Result &"不存在调班,调班必须 周六 或 周日!", "提示")
    End If

就可以，请老师看一下，谢谢