主题：新版本的问题

If vars("保存")=True

    If e.DataRow.Isnull("客户名称") Then

        MessageBox.show("客户名称不能为空!","提示")

        e.Cancel=True

        Return

    End If

    If e.DataRow.Isnull("产品名称") Then

        MessageBox.show("产品名称不能为空!","提示")

        e.Cancel=True

        Return

    End If

    If e.DataRow.Isnull("计量单位") Then

        MessageBox.show("计量单位不能为空!","提示")

        Return

    End If

    If e.DataRow("产品编号").contains("-") Then

        Dim s1,s2 As String

        Dim i As Integer

        s1=e.DataRow("产品编号").split("-")(0)

        s2=e.DataRow("客户编号")

        i=val(e.DataRow("产品编号").split("-")(1))

        If i>0 Then

            Dim dr As DataRow=DataTables("合同顺序号").sqlfind("客户代码='" & s1 & "' and 客户编号='" & s2 & "' and id=" & e.DataRow("_identify"))

            If dr Is Nothing Then

                Dim r As Row=Tables("合同顺序号").addnew

                r("客户代码")=s1

                r("顺序号")=i

                r("客户编号")=s2

                r("id")=e.DataRow("_identify")

                r.save

            End If

        Else

            MessageBox.show("合同编号格式错误!","提示")

            e.Cancel=True

            Return

        End If

    End If

    

    If e.DataRow.Locked=False Then

        e.DataRow.locked=True

        MessageBox.show("保存成功!","提示")

    End If

End If