主题：后台删除

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

 

此主题相关图片如下：qq截图20180420093339.png

请老师执教，谢谢！