不要用表达式列

http://www.foxtable.com/webhelp/scr/1380.htm

这个代码删除 Return 即可

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()