vb权限设置

       你用了两个 = 耶。。源码。源码在线ps源码下载

       而且上面的源码代码是写在Private Sub MSFlexGrid1_RowColChange()事件中的吧。

       Private Sub MSFlexGrid1_RowColChange()

       Dim i As Long: i = MSFlexGrid1.Row

       If frm_main.StatusBar1.Panels(2).Text = "当前系统用户：" & MSHFlexGrid1.TextMatrix(i,源码震荡交易指标源码 ) Then

        FrmUpdate.Show

       else

       msgbox“您无权限修改”

       End Sub

       ---------------------------------------------

       网页留言失败。上面的源码php 5.6 源码安装代码是选中行时即可判断。。源码。源码

       如果你要通过按钮点击实现的源码话，写在按钮事件中啊'MSFlexGrid1.Row-当前选中行

       private sub command1_click()

       If frm_main.StatusBar1.Panels(2).Text = "当前系统用户：" & MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row,源码 ) Then

        FrmUpdate.Show

       else

       msgbox“您无权限修改”

       end sub

       ---------------------------------------------

       不知道你源码是什么样子的，要下面的源码效果？你自己变通一下啊

       private sub command1_click()

       If frm_main.StatusBar1.Panels(2).Text = MSHFlexGrid1.TextMatrix(MSFlexGrid1.Row, ) Then

        FrmUpdate.Show

       else

       msgbox“您无权限修改”

       end sub

在vb中怎么把access 数据库中的数据全部显示出来

       Private Sub Form_Load()

       Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Stu.mdb;Persist Security Info=False"

       Adodc1.RecordSource = "select * from tb_stu "

       Adodc1.Refresh

       Set DataGrid1.DataSource = Adodc1

       end Sub

       'Stu.mdb 是数据库，tb_stu是源码数据库表名

       '添加datagrid 、Adodc1 控件