主题：记录表

当打开窗口时，自动跳到第二列，输入第二列时，自动跳到“button1”,应到第四列录入后才自动跳到"button1"?

 

写错代码了，不好意思。第四列回车才跳到button1

 

 

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

点击浏览该文件:管理项目8.table

当回车时，没法输入，要双击记录表格才能输入？

当输入第一条时，就可以，经过“button1”时，就要双击才能输入？

是不是经过“button1”后， .StartEditing只对第二列才起效，回车到第三列时，就不起效？

 不清楚你button1的逻辑，这个样改

 

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("表A").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("表A").AllowEdit = False
        Else
            .StartEditing
        End If
    End With
Else
    If  CurrentTable.current.isnull("第五列") Then
        DataTables("表A").AllowEdit = False
    End If
End If

If  Tables("表A").AllowEdit Then
    e.Form.Controls("RecordGrid1").basecontrol.Select(1, 1)
    e.Form.Controls("RecordGrid1").basecontrol.StartEditing
End If

正进入记录表时，输入正常，在经过“button1”后，记录表中输入第二列数后，在第三列闪一下，就跳到“button1”

老师你试一下，是不是这种情况？

 再改一下

 

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("表A").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("表A").AllowEdit = False
        Else
            .StartEditing
        End If
    End With
Else
    If  CurrentTable.current.isnull("第五列") Then
        DataTables("表A").AllowEdit = False
    End If
End If

If  Tables("表A").AllowEdit Then
    ridx = 1
    e.Form.Controls("RecordGrid1").basecontrol.Select(1, 1)
    e.Form.Controls("RecordGrid1").basecontrol.StartEditing
End If

ridx = 1是什么？