主题：记录表

 回复69楼，这里不会有错误。

 

 自己调试一下，看哪里错了。http://www.foxtable.com/help/topics/1485.htm

 

Dim cr As Row = CurrentTable.Current

MessageBox.Show(0)
If CurrentTable.DataTable.Compute("sum(第三列)","第一列='" & cr("第一列") & "'") =1 Then

MessageBox.Show(1)
    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 

MessageBox.Show(2)

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

   MessageBox.Show(3)
        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

先显示0，再显示错误Cannot find column [份数].

份数是第三列

呃，你自己去看你的表，看有没有 份数 这一列，看列的名字，而不是标题

 如果有份数这一列，你弹出看一下 CurrentTable.Name 是什么，如果currentTable.Name不正确，就把这个直接改成对应的表名。

 Tables("销售").Sort = "编号"   不能排序的原因有

 

1、表名写错了，可能是副本表；

 

2、重新load了或者fill了表，需要重新设置sort

1.不是副本

加载主表收购时，关联表销售同时加载

 

销售加载完之后，重新设置呗。