Select Case e.DataCol.name Case "选择" If e.DataRow("选择") = True Then Dim cmd As New SQLCo mmand cmd.Connecti cmd.Comma ndText ="Sel ect Count(*) Fr om {Users} Wh ere 用户 = '" & _User Name & "'and 公司名称 = '" & uuuuuu & "'and 一级菜单 = '" & e.DataRow("一级菜单") & "'and 二级菜单 = '" & e.DataRow("二级菜单") & "'and 三级菜单 = '" & e.DataRow("三级菜单") & "'and 四级菜单 = '" & e.DataRow("四级菜单") & "'and 五级菜单 = '" & e.DataRow("五级菜单") & "'and 六级菜单 = '" & e.DataRow("六级菜单") & "'and 七级菜单 = '" & e.DataRow("七级菜单") & "'and 八级菜单 = '" & e.DataRow("八级菜单") & "' " If cmd.Execut eScalar <= 0 Then 'Ins ert Into 项目菜单 (一级菜单,二级菜单,三级菜单,四级菜单,五级菜单,六级菜单,七级菜单,八级菜单,用户,公司名称) Values(e.DataRow("一级菜单") ,e.DataRow("二级菜单"),e.DataRow("三级菜单"),e.DataRow("四级菜单"),e.DataRow("五级菜单"),e.DataRow("六级菜单"),e.DataRow("七级菜单"),e.DataRow("八级菜单"),_UserN ame,uuuuuu) End If Else End If End Sel ect
|