主题：点击保存异常

加入msgbox定位出错位置 http://www.foxtable.com/webhelp/scr/1485.htm

 

If Tables("").Current IsNot Nothing Then

    '原来代码

End If

表名写错，表名应该是 Tables("工作评价待处理_工作评价表")

加入msgbox定位哪句代码出错了吗？要学会最基本的调试

 

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

 

那试试加上systemReady

 

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

 

应该是你datacolchanged或者之类的表事件代码有错误。

请自行测试和调试，这个是最基本的知识点。看8楼、看10楼，自食其力。

    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
        msgbox(1)
        Dim str As String = e.Form.Controls("相关人员1").text
        msgbox(2)
        If str > "" AndAlso r IsNot Nothing Then
            msgbox(3)
            msgbox(str)
            For Each s As String In str.split(",")
                msgbox(4)
                Dim nr As Row = Tables("工作评价待处理_工作评价表").AddNew
                msgbox(5)
                nr("填写人") = r("填写人")
                nr("今日工作内容") = r("今日工作内容")
                nr("是否完成") = r("是否完成")
                nr("计划外事件") = r("计划外事件")
                nr("明日工作计划") =  r("明日工作计划")
                nr("项目代号") = r("项目代号")
                nr("项目名称") = r("项目名称")
                nr("事件开始日期") = r("事件开始日期")
                nr("事件结束日期") = r("事件结束日期")
                nr("总用时") = r("总用时")
                nr("项目类型") = r ("项目类型")
                nr("综合自评分") = r("综合自评分")
                nr("计划日期") = r("计划日期")
                nr("节点名称") = r("节点名称")
                nr("节点代号") = r("节点代号")
                nr("附件") = r("文件")
                nr("明日工作日期") = r("明日工作日期")
                nr("相关人员")= s
            Next
        End If
        DataTables("工作记录填写_记录总表").Save()
        msgbox(6)
        DataTables("工作记录填写_记录总表").Load
        msgbox(7)
        DataTables("工作记录填写_记录总表").addnew
        msgbox(8)
        Tables("工作记录填写_记录总表").current("明日工作日期") = Date.Today().AddDays(1)
        msgbox(9)
        If Tables("工作记录填写_记录总表").Current IsNot Nothing Then
            Tables("工作记录填写_记录总表").current("计划日期") = Date.Today
            msgbox(10)
        End If
        DataTables("工作记录填写_记录总表").DataCols("文件").DefaultFolder = "\\192.168.1.240\条码系统\信息管理\管理文件"
        DataTables("工作记录填写_记录总表").deleteFor("项目名称  is null or 事件开始日期 is null or 相关人员 is null")

测试了一下，如果是提示【xxx表格不存在，说明你yyy窗口没有打开导致的】

 

写哪个表都可以。如果写【工作记录评价表】，那必须先save，你另一个表【工作评价待处理_工作评价表】要显示，那就load一下刷新此表