主题：限制表的编辑

If jinzhihangjianyidong=False Then
    If e.Col.Name="客户姓名" Then
        e.Cancel= True
        vars("客户资料入库窗体_状态") = "查询"
        Dim xm As String = Tables("pos机库存资料").Current("客户姓名")
        Tables("客户资料").Filter = "客户姓名 = '" & xm & "'"
        Forms("客户资料入库窗体").OpenTo("pos机库存资料")
    End If
End If