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

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

    原来的代码