Foxtable(狐表)用户栏目专家坐堂 → 后台删除


  共有1783人关注过本帖树形打印复制链接

主题:后台删除

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/20 10:43:00 [显示全部帖子]

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/20 12:01:00 [显示全部帖子]

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

 回到顶部