主题：对象设置到实例

Dim r As Row = Tables("销售出库单列表").Current
If r Is Nothing Then
    msgbox("没有数据")
    e.Cancel = True
Else
    If r("配货状态") = True Then
        e.cancel = True
    End If
End If

If e.keyCode = Keys.Enter AndAlso e.Table.Cols(e.Table.colSel).Name = "SN"   Then
    e.cancel = True
    Dim r As Row = e.Table.addnew
    If r Is Nothing Then
        msgbox("新增失败")
    Else
        e.Table.Select(r.Index, 0)
        e.Table.StartEditing
    End If
End If