主题：记录表

为什么每次跳到单价空白行，仍可输入肉商名，然后才锁定？

记录表第四列录入后自动跳到按钮控件的代码真的很难，请老师帮我写一下？

 

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
            Else
                .StartEditing
            End If          
        End If      
    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
        Else
            .StartEditing
        End If
    End With
End If
e.Form.Controls("RecordGrid1").basecontrol.Select(1, 1)
e.Form.Controls("RecordGrid1").basecontrol.StartEditing

 

KeyDownEdit 事件

 

If e.Col.Name = "第四列" Then
    If e.KeyCode = keys.Enter Then
        If Forms("窗口1").Opened Then
            Forms("窗口1").Controls("Button1").Select
        End If
    End If
End If

还是改变不了

肉商还是可以输入

 

这样改

 

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
            Else
                .StartEditing
            End If          
        End If      
    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
        Else
            .StartEditing
        End If
    End With
Else
    If  CurrentTable.current.isnull("单价") Then
          DataTables("销售").AllowEdit = False
     End If 
End If
e.Form.Controls("RecordGrid1").basecontrol.Select(1, 1)
e.Form.Controls("RecordGrid1").basecontrol.StartEditing

肉商还是可以输入，记录表还是不能跳到按钮控件？

 

请上传例子。

当第五列为空时，禁止输入，但第二列还是可以输入，在项目事件KeyDownEdit 事件中加入

 

If e.Col.Name = "第四列" Then
    If e.KeyCode = keys.Enter Then
        If Forms("窗口1").Opened Then
            Forms("窗口1").Controls("Button1").Select
        End If
    End If
End If

在记录表中输入重量后点击enter,还是不能由记录表跳到“button1”