主题：SQL 数据丢失

没有多人同时编辑这个表格，使用外部SQL数据库。

此主题相关图片如下：丢失代码错误2.jpg

此主题相关图片如下：丢失代码错误1.jpg

附件是数据结构。

从源代码中可以看到，如果没有输入“加工日期”，是没有办法输入“零件项号”。

但是保存重新打开以后，发现“零件项号”是有的，但是“加工日期”没有了。

对于”加工日期“列，在输入“零件项号“以后无法更改的。

    Case "加工日期"

        If e.DataRow.IsNull("零件项号") = False Then

            MessageBox.Show("请删除零件项号后再更改", "提示")

            e.Cancel = True

    Case "零件项号"

        If e.DataRow.IsNull("生产批号") = False Then

            MessageBox.Show("已经存在生产批号和卡片序号,无法更改项号", "提示")

            e.Cancel = True

        Else If e.NewValue <> Nothing Then

            If e.DataRow.IsNull("加工日期") = True Then

                MessageBox.Show("请先填写日期", "提示")

                e.Cancel = True

            Else

                Dim dr As DataRow

                dr = DataTables("轴类零件数据表").Find("[零件项号] = '" & e.NewValue & "' And [当前在产] = True")

                If dr IsNot Nothing Then

                    Dim tbp As New DropTreeBuilder

                    tbp.SourceTable = DataTables("轴类零件生产汇总表") '指定目录树表

                    tbp.TreeCols = "生产批号" '指定用于生成目录树的列

                    tbp.SourceCols = "生产批号" '指定数据来源列

                    tbp.ReceiveCols = "生产批号" '指定数据接收列

                    tbp.TreeFilter = "[生产中] = True And " & "[零件项号] = '" & e.NewValue & "'"

                    Tables("轴类生产点检记录").Cols("生产批号").DropTree = tbp.Build()

                Else

                    MessageBox.Show("输入的零件项号有误,请检查该零件是否当前在产", "提示")

                    e.Cancel = True

                End If

            End If

        Else If e.NewValue Is Nothing Then

            Tables("轴类生产点检记录").Cols("生产批号").DropTree = Nothing

        End If

另外对于SQL数据的处理有没有特别需要注意的地方？

谢谢