回 帖 发 新 帖 刷新版面

主题:数据的访问权根

Public Sub 载入影片信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim zyimfdt As DataSet '定dataset义对象
        Dim dvdtable As New DataTable("zyimformation") '定义datatable对象
        Dim dvdrow As DataRow() '建立datarow对象
        Dim cmdvd As CurrencyManager '定义浏览数据的对象
        Dim istate, iposition As Integer '定义记录数据当前的状态和记录数据的当前位置

    End Sub



Private Sub displaydata()
        If (dvdtable.rows.count > 0) Then

        End If
    End Sub

提示dvdtable没有声名。。。。。。。。。
能否指点一下

回复列表 (共4个回复)

沙发

可能不是权限问题。你把

        Dim dvdtable As New DataTable("zyimformation") '定义datatable对象
        Dim dvdrow As DataRow() '建立datarow对象
        Dim cmdvd As CurrencyManager '定义浏览数据的对象
        Dim istate, iposition As Integer '定义记录数据当前的状态和记录数据的当前位置

定义为public dvdtable as new datatable.....
应该就不会提示没声明了。

板凳

试试看。。。。

3 楼

Dim dvdtable As New DataTable("zyimformation") '定义datatable对象

把这句放到private外面

4 楼

Dim zyimfdt As DataSet '定dataset义对象
        Dim dvdtable As New DataTable("zyimformation") '定义datatable对象
        Dim dvdrow As DataRow() '建立datarow对象
        Dim cmdvd As CurrencyManager '定义浏览数据的对象
        Dim istate, iposition As Integer '定义记录数据当前的状态和记录数据的当前位置


把这些定义放到Public Class 载入影片信息
             Inherits System.Windows.Forms.Form
             这段代码的后面,就可以了

我来回复

您尚未登录,请登录后再回复。点此登录或注册