以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  限制表的编辑  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107726)

--  作者:裴保民
--  发布时间:2017/10/8 18:09:00
--  限制表的编辑
代码怎么限制某个表的编辑呢?
如果窗体表是附表又是怎么写代码呢?

--  作者:有点甜
--  发布时间:2017/10/8 18:11:00
--  

把权限管理看完

 

http://www.foxtable.com/webhelp/scr/2253.htm

 

 


--  作者:裴保民
--  发布时间:2017/10/8 21:52:00
--  

甜老师如果在窗体单击某一个按钮来控制窗体表是否可以编辑代码怎么写呢?

[此贴子已经被作者于2017/10/8 21:53:28编辑过]

--  作者:有点甜
--  发布时间:2017/10/8 22:08:00
--  

Dim t As Table = Forms("窗口1").Controls("Table1").Table
t.AllowEdit = false \'禁止编辑


--  作者:裴保民
--  发布时间:2017/10/9 0:13:00
--  

平常窗体表处于非编辑状态时有一个字段只要双击就打开一个以该字段为查询条件的窗体,我想在窗体处于编辑状态时双击该字段就编辑状态不打开窗体,甜老师该怎么设置代码呀?

 

 

 

以前我在foxtable表的DoubleClick事件中编写了如下代码,现在实现不了该功能,该怎么修改一下呢?

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

[此贴子已经被作者于2017/10/9 0:17:01编辑过]

--  作者:有点甜
--  发布时间:2017/10/9 8:39:00
--  
If e.Col.Name="客户姓名" AndAlso e.Table.AllowEdit = False Then

--  作者:裴保民
--  发布时间:2017/10/9 9:24:00
--  
甜老师这样写代码不管是编辑状态还是非编辑状态双击该字段就编辑状态打不开查询窗体的
--  作者:裴保民
--  发布时间:2017/10/9 9:37:00
--  

在表的PrepareEdit事件中怎样写代码能实现当jinzhihangjianyidong=False时执行"机具ID"、"商户ID"、"商户名称" "客户ID" 、"客户姓名"都不能编辑,如果 jinzhihangjianyidong=True 除了"商户ID"、"商户名称" 可以编辑其他几个字段都不能编辑呢?

我写了一下代码实现不了这个功能
If jinzhihangjianyidong=False   Then
If  e.Col.Name ="机具ID" Or e.Col.Name ="商户ID"  Or e.Col.Name ="商户名称"  Or   e.Col.Name ="客户姓名" Or e.Col.Name ="客户ID"  Then
e.Cancel=True
End If
Else
e.Cancel= False
End If

[此贴子已经被作者于2017/10/9 9:50:26编辑过]

--  作者:有点甜
--  发布时间:2017/10/9 9:38:00
--  

If e.Col.Name="客户姓名" AndAlso e.Col.AllowEdit = False Then


 

如果还不行,做个例子发上来看看。

[此贴子已经被作者于2017/10/9 9:38:08编辑过]

--  作者:裴保民
--  发布时间:2017/10/9 9:55:00
--  

在表的PrepareEdit事件中怎样写代码能实现当jinzhihangjianyidong=False时执行"机具ID"、"商户ID"、"商户名称" "客户ID" 、"客户姓名"都不能编辑,如果 jinzhihangjianyidong=True 除了"商户ID"、"商户名称" 可以编辑其他几个字段都不能编辑呢?

我写了一下代码实现不了这个功能
If jinzhihangjianyidong=False   Then
If  e.Col.Name ="机具ID" Or e.Col.Name ="商户ID"  Or e.Col.Name ="商户名称"  Or   e.Col.Name ="客户姓名" Or e.Col.Name ="客户ID"  Then
e.Cancel=True
End If
Else
e.Cancel= False
End If