主题：记录表

查了一下，这样改

Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.normal.Border.width = 10
Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.normal.Border.Color = Color.Red
Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.Fixed.border.width = 10
Forms("窗口1").Controls("RecordGrid1").Basecontrol.styles.Fixed.Border.Color = Color.Red

 如下

Dim cr As Row = CurrentTable.Current
If CurrentTable.DataTable.Compute("sum(第三列)","第一列='" & cr("第一列") & "'") >=1 Then
    With CurrentTable
        Dim r As Integer
        r = .Find((cint(cr("第一列"))+1).ToString(), 0, "第一列", False, False, True)
        If r > - 1 Then '如果找到符合条件的行
            .Select(r,2,r,2)
        End If
        .StartEditing
    End With
End If

参考，自己做一下

http://www.foxtable.com/help/topics/0622.htm

http://www.foxtable.com/help/topics/0729.htm

没理解，我猜是这个意思

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

点击浏览该文件:记录表窗口.zip

 代码

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)
        End If
        .StartEditing
    End With
Else
    Dim nr As Row = CurrentTable.AddNew
    nr("第一列") = cr("第一列")
    nr.Move(cr.Index+1)   
End If

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

编写prepareEdit事件，判断第五列是否有值

if e.row.isnull("第五列") then

    e.cancel = true

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
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