主题：[求助]删除行的时候报了这个错误？

删除行的时候报了这个错误？

问题出在哪里呢？这个提示什么意思。

此主题相关图片如下：截图00.png

    

CurrentChanged事件中，删除以下代码，就没有报错了。这个代码问题在哪里呢？

    '汇报与批示页签中,初始加载,输入框都不能编辑
    '    e.Table.Save
    '    For Each c As Winform.Control In Forms("任务管理窗口").Controls("汇报GroupBox").Children
    '        c.Enabled =False
    '    Next
     '   For Each c As Winform.Control In Forms("任务管理窗口").Controls("批示栏GroupBox").Children
     '       c.Enabled =False
    '    Next

If Forms("任务管理窗口").Opened Then
    If Tables("任务表.汇报与批示").Rows.Count > 0  Then
        If Tables("任务表.汇报与批示").Current("批准否") = True Then
            Forms("任务管理窗口").Controls("审核PictureBox").TopMost = True  '控制审核图标的显示
            Forms("任务管理窗口").Controls("删除Btn").Enabled = False '删除按钮的失效
                     
        Else
            If Tables("任务表.汇报与批示").Current("汇报人") = user.Name Then
                Forms("任务管理窗口").Controls("删除Btn").Enabled = True '当汇报人是用户时候,且当前行未审核,那么可以删除
            End If
           
                    
           
            Forms("任务管理窗口").Controls("审核PictureBox").BackMost = True
        End If
       
        '批准按钮的控制(代码已经写在修改按钮中了)
        Dim s2 As String = Tables("任务表").Current("下达人") '当任务下达人,且当前行审批状态为否 时候,批准按钮有效,
    '    If s2.Contains( user.Name ) AndAlso Tables("任务表.汇报与批示").Current("批准否") = False Then
       '     Forms("任务管理窗口").Controls("批准Button").Enabled = True
     '   Else
     '       Forms("任务管理窗口").Controls("批准Button").Enabled = False
     '   End If

        '撤准按钮的控制
        If s2.Contains( user.Name ) AndAlso Tables("任务表.汇报与批示").Current("批准否") = True Then
            e.Form.Controls("撤准Button1").Enabled = True
        Else
            e.Form.Controls("撤准Button1").Enabled = False
        End If
       
       
        '---------------------当修改了,但没有保存,这时候换行,需要先锁定全部可以编辑的内容------
       
        '汇报与批示页签中,初始加载,输入框都不能编辑
    '    e.Table.Save
    '    For Each c As Winform.Control In Forms("任务管理窗口").Controls("汇报GroupBox").Children
    '        c.Enabled =False
    '    Next
     '   For Each c As Winform.Control In Forms("任务管理窗口").Controls("批示栏GroupBox").Children
     '       c.Enabled =False
    '    Next
       
       
              '工具栏修改按钮的控制
        If Tables("任务表.汇报与批示").Current IsNot Nothing Then
           
            If  Tables("任务表.汇报与批示").Current("批准否") = True Then
                Forms("任务管理窗口").Controls("修改Btn").Enabled = False
            Else
                Dim s9 As String = Tables("任务表").Current("下达人")
               
                If Tables("任务表.汇报与批示").Current("汇报人") = user.Name OrElse   s9.Contains( user.Name )  Then
                   Forms("任务管理窗口").Controls("修改Btn").Enabled = True
                Else
                    Forms("任务管理窗口").Controls("修改Btn").Enabled = False
                End If
                             
            End If
        Else
            Forms("任务管理窗口").Controls("修改Btn").Enabled = False
        End If
       

       '保存按钮不可编辑
        Forms("任务管理窗口").Controls("保存Btn").Enabled = False
       
       
        '上下移动按钮可用
        Forms("任务管理窗口").Controls("down2Btn").Enabled = True
        Forms("任务管理窗口").Controls("downBtn").Enabled = True
        Forms("任务管理窗口").Controls("upBtn").Enabled = True
        Forms("任务管理窗口").Controls("uupBtn").Enabled = True
       
        '----------------
       
       
       
       
    End If
End If

前面是有 If Tables("任务表.汇报与批示").Rows.Count > 0  Then
end if 了呀

居然问题出在这句上面，加了报错，不加就OK，奇怪了。 

'    e.Table.Save

 

 

 

 

将它换成DataTables("汇报与批示").Save 也报一样错误，没有这句就不出错。

 

实现换行时候，直接先保存表。但是删除当前行时候，就报错了。

这个过程是怎么样的呢？是否我理解的这样：

当前行----删除当前行后-- 系统重新选择了一个当前行--- -CurrentChanged事件触发，执行里面的代码

 

是这样吗，我该怎么改进代码呢？

我想在--- -CurrentChanged事件的代码里加上一句，当前行变化时候，保存一下表。

e.table.save

但是这句在要报错啊。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目9.foxdb

 

难道在--- -CurrentChanged事件的代码里不能e.table.save？？

 

我加e.table.save的目的是实现：当用户在表中，切换当前时候，能够先保存一下表。

 

但是当我做了删除按钮的时候，删除当前行，也会执行CurrentChanged事件的代码，这时候就报错了

就是用户编辑当前行，有的时候没有编辑完，有的时候编辑完了，为了方便，不用他故意去点击保存按钮，当切换行时候，自然就保存了刚才的输入内容。