比如
cmd.CommandText = "SELECT 新增,修改 FROM [test].[dbo].[userqx] where [账号]= '" & User.name & "' and [窗体名称]= '" & e.Form.Name & "' "
Dim dt As DataTable =cmd.ExecuteReader()
If dt.DataRows.Count > 0 Then
Dim dr As DataRow = dt.DataRows(0)
e.Form.Controls("GFxz").Enabled= dr("新增")
e.Form.Controls("GFxg").Enabled= dr("修改")
Return
End If
e.Form.Controls("GFxz").Enabled= False
e.Form.Controls("GFxg").Enabled= False