执行什么代码的时候出错？贴出代码。

如果执行了sql语句，看看 http://www.foxtable.com/webhelp/scr/2668.htm

加入msgbox，定位出错位置

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

回复5楼，在那段代码那里，继续加入msgbox，定位是哪一句代码出错。

一般是你datacolchanged事件有问题导致的。

多余代码都删除，单独留这三句代码，也报错？

    Case "保存"
        If Tables("工作记录填写_记录总表").Current Is Nothing Then
            msgbox("不能保存")
        End If
        Dim cls() As String ={"事件开始日期", "项目名称","事件开始日期", "今日工作内容","是否完成","综合自评分","相关人员", "项目类型"}
        For Each c As String In cls
            If Tables("工作记录填写_记录总表").Current.isnull(c) Then
                msgbox(c & "不能为空")
                Return
            End If
        Next
        e.Form.Controls("今日工作内容1").Select
        e.Form.Controls("计划外事件1").Select
        Dim r As Row = Tables("工作记录填写_记录总表").Current
        Dim str As String = e.Form.Controls("相关人员1").text
        If str > "" AndAlso r IsNot Nothing Then
            msgbox(str)
            For Each s As String In str.split(",")
                Dim nr As Row = Tables("工作记录评价表").AddNew           

                nr("计划日期") = r("计划日期")
            Next
        End If
       

执行下面代码，弹出什么？

            For Each s As String In str.split(",")
                Dim nr As Row = Tables("工作记录评价表").AddNew           

msgbox(1)

                nr("填写人") = r("填写人")

msgbox(2)

                nr("项目代号") = r("项目代号")

msgbox(3)

                nr("计划日期") = r("计划日期")

msgbox(4)
            Next

msgbox(5)

如果msgbox(5)能正常弹出，就不是你说的那几句代码导致的错误啊