“日立产品进出明细表“只能“车间统计”和“仓库统计”能编辑，而且各自编辑各自的列，用下面的代码来实现
If User.name = "车间统计" Then
DataTables("日立产品进出明细表").AllowEdit = True
Else
DataTables("日立产品进出明细表").AllowEdit = False
End If
If User.name = "仓库统计" Then
DataTables("日立产品进出明细表").AllowEdit = True
Else
DataTables("日立产品进出明细表").AllowEdit = False
End If
Dim ctl As WinForm.Control = e.Sender
Select Case ctl.BindingField
Case "日立产品进出明细表.入库_二层套数量","日立产品进出明细表.入库_三层套数量","日立产品进出明细表.入库_四层套数量","日立产品进出明细表.出库_二层套数量","日立产品进出明细表.出库_三层套数量","日立产品进出明细表.出库_四层套数量","日立产品进出明细表.不良品退货_二层套数量","日立产品进出明细表.不良品退货_三层套数量","日立产品进出明细表.不良品退货_四层套数量","日立产品进出明细表.退货返修入库_二层套数量","日立产品进出明细表.退货返修入库_三层套数量","日立产品进出明细表.退货返修入库_四层套数量","日立产品进出明细表.补货_二层套数量","日立产品进出明细表.补货_三层套数量","日立产品进出明细表.补货_四层套数量","日立产品进出明细表.损耗报废_二层套数量","日立产品进出明细表.损耗报废_二层套数量","日立产品进出明细表.损耗报废_三层套数量","日立产品进出明细表.损耗报废_四层套数量","日立产品进出明细表.初始库存_二层套数量","日立产品进出明细表.初始库存_三层套数量","日立产品进出明细表.初始库存_四层套数量","日立产品进出明细表.库存_二层套数量","日立产品进出明细表.库存_三层套数量","日立产品进出明细表.库存_四层套数量"
If User.Name = "仓库统计" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
Case "日立产品进出明细表.车间_生产片数", "日立产品进出明细表.车间_初始暂存片数", "日立产品进出明细表.车间_损耗报废片数"
If User.Name = "车间统计" Then
ctl.ReadOnly = BooleanEnum.False '允许编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End Select
可是没有达到目的，出现了这样的问题：有时候仓库统计都能编辑，有时候仓库统计又能编写自己该编写的列。车间统计有时候也是这样。请教各位老师给预指点
加好友 
发短信
Post By：2017/1/17 15:55:00 [只看该作者]
