Dim dbt1 As DataTable = DataTables("假期安排")
Dim dbt2 As DataTable = DataTables("月出勤表n")
Dim d1 As Date = Date.Today
Dim mYYYY As Integer = d1.Year
Dim mMONTH As Integer = d1.Month
Dim mDAY As Integer = d1.Day
Dim txt As String = "'%" & cstr(mYYYY) & "%'" '今年
Dim txt1 As String = "'%" & cstr(mYYYY-1) & "%'" '去年
Dim LP As Integer
Dim dr As DataRow = DataTables("月出勤表n").Find("YYYY = '" & mYYYY & "'" )
If dr IsNot Nothing'如果找到,则设置各列内容
MessageBox.show(mYYYY & " 月出勤表已經存在,不可重复,請查明!!") '可强迫删旧的重新产生
Return
Else
Dim dr1 As DataRow = DataTables("假期安排").Find("convert([起日],'System.String') like " & txt )
If dr1 IsNot Nothing'如果月出勤表找到已建,则建立新度月出勤表
MessageBox.show(mYYYY & "已建立假期安排!!")
MessageBox.Show("是否建立新度月出勤表?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button2)
Return
Else
Dim Result As DialogResult
Result = MessageBox.Show("是否拷备去年假期,再修改?!", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
For Each dr2 As DataRow In DataTables("假期安排").Select("convert([起日],'System.String') like " & txt1 ,"[起日]") '去年
Dim mNEWROW As DataRow = dbt1.ADDNEW()
mNEWROW("安排项目") = dr2("安排项目")
mNEWROW("起日") = cdate(cstr(dr2("起日").year+1) & "-" & dr2("起日").month & "-" & dr2("起日").day )
mNEWROW("天数") = dr2("天数")
'mNEWROW("迄日") = cdate(cstr(dr2("迄日").year+1) & "-" & dr2("迄日").month & "-" & dr2("迄日").day )
Next
End If
End If
End If
'DataTables("假期安排").DataColS("天数").RaiseDataColChanged()
DataTables("假期安排").SAVE()