主题：求助，如何优化下面的代码

出了什么问题？

你最好上传表，这样别人才能调试好代码再发给你，否则都只能大概。

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

点击浏览该文件:管理项目33.rar

你的代码非常离谱，建议你先细看帮助，特别市开发指南中《编程基础》和《foxtable编程》这两章。

再加一行：

Dim dr1 As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "涂"
        If dr1("涂") = True Then
            Dim dr2 As DataRow = DataTables("完成记录").AddNew()
            For Each dc As DataCol In DataTables("完成记录").DataCols
                If e.DataTable.DataCols.Contains(dc.name) Then
                    dr2(dc.name) = dr1(dc.name)
                End If
            Next
            dr1.Delete
        End If
    Case "涂日"
        If dr1.IsNull("涂日") = False  Then
            Dim d As Date = dr1("涂日")
            dr1("月份") =cstr("Y"& d.month )
            dr1("日期") =cstr( d.day & "日")
        Else
            dr1("月份") = Nothing
            dr1("日期") = Nothing
        End If
End Select

那就继续用7楼的文件，然后自己做一个保存按钮，删除符合条件的行再保存：

DataTables("排单").DeleteFor("涂 = True")
DataTables.Save()

同时我们会考虑改进BeForeSaveDatarow事件，允许在这个事件中删除行，这样你的问题就可以更加简单地解决。