主题：记录表

    With CurrentTable

        .Position = .Position + 1

        .StartEditing

    End With

Dim cr As Row = CurrentTable.Current

If CurrentTable.DataTable.Compute("sum(份数)","编号='" & cr("编号") & "'") =1 Then

    With CurrentTable

        Dim r As Integer

        Dim ary() As String = cr("编号").split("-")

        r = .Find(ary(0) & "-" & Format((cint(ary(1))+1), "000"), 0, "编号", False, False, True)

        If r > - 1 Then '如果找到符合条件的行

            .Select(r,2,r,2)

            If  CurrentTable.current.isnull("单价") Then

                DataTables("销售").AllowEdit = False

            End If

        End If

        .StartEditing

    End With

Else If CurrentTable.DataTable.Compute("sum(份数)","编号='" & cr("编号") & "'") < 1 And CurrentTable.current("肉商") IsNot Nothing And CurrentTable.current("份数") < >0 And CurrentTable.current("重量") < >0 Then

    With CurrentTable

        .Position = .Position + 1

        If  CurrentTable.current.isnull("单价") Then

            DataTables("销售").AllowEdit = False

        End If

        

        .StartEditing

    End With

End If

e.Form.Controls("RecordGrid1").basecontrol.Select(1, 1)

e.Form.Controls("RecordGrid1").basecontrol.StartEditing