主题：[求助]求大家给写个代码！

新建：表A。

新建：窗口，新建button1

设置：第一列  扩展属性为：1、2、3、4，禁止直接输入。

建立用户分组：设置组1、组2。

问题1：当表A新增加行时，新行的   第一列   自动填入“1”。

问题2：当前用户为“组1”时，  第一列  只能选择填入“2”。

问题3：当表A.第一列的内容为“2”时，锁定第二列、第三列。

问题4：当表A.第一列的内容为“1、2、3、”时，控件button1（针对当前行）不可用。

问题4，自己解决不了，给看下呗

问题3给解决下谢谢！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

1、DataRowAdding事件：

e.datarow("第一列") = 1

2、PrePareEdit事件：

if e.Col.Name  = “第二列” OrElse e.Col.Name = "第三列" Then

    if e.Row("第一列") = 2 then

       e.Cancel  = True

    end if

end if

3、Buton1的Click事件：

    Dim Val as integer = Tables("表名").Current("第一列")

    Select case Val

        case 1,2,3

             Messagebox.show("没用")

             Retuen

    End Select

    原来的代码