求助窗体问题

smmgh

在一个窗体中有三个子窗体（一楼、二楼、三楼），请问各位高手：如何做到以一楼身份登录只能编辑主窗体和一楼子窗体，而二、三楼的子窗体为只读。以二楼的身份登录只能编辑二楼子窗体的内容其它的为只读。以三楼的身份登录只能编辑三楼子窗体其它窗体为只读。

Henry D. Sy

你怎么一次发三个同样的帖子

smmgh

操作错误

smmgh

对不起，可能是我这里的网络有问题，我原来以为没发出去所以连发了三个。另一方面也是着急所致。

Henry D. Sy

传例子

smmgh

请收附件

smmgh

高手先谢了！

Henry D. Sy

定义一个公共变量strName

1. Private Sub Form_Load()
   
2.     Const conSnapshot = 2
   
3.     Select Case strName
   
4.     Case "一楼"
   
5.         Me.二楼.Form.RecordsetType = conSnapshot
   
6.         Me.三楼.Form.RecordsetType = conSnapshot
   
7.     Case "二楼"
   
8.         Me.RecordsetType = conSnapshot
   
9.         Me.一楼.Form.RecordsetType = conSnapshot
   
10.         Me.三楼.Form.RecordsetType = conSnapshot
    
11.     Case Else
    
12.         Me.RecordsetType = conSnapshot
    
13.         Me.一楼.Form.RecordsetType = conSnapshot
    
14.         Me.二楼.Form.RecordsetType = conSnapshot
    
15.     End Select
    
16. End Sub

复制代码

smmgh

谢谢！