data_table inform1 lezen in form2

[nojat]

Hallo allemaal,

hoe kan ik een table die is gemaakt in form1 lezen in form2

dit geld ook voor een variable

dus in form1
dim var as string
dim dt as datatable


en in form2
msgbox(form1.var)
msgbox(form1.dt.rows(0).Item(0))

hoe krijg ik dit voor elkaar ????

 

[Ginanity]

Public properties aanmaken. En voor de datatable kan je eventueel een funcie maken die een DT returned.

 

[nojat]

Public properties aanmaken. En voor de datatable kan je eventueel een funcie maken die een DT returned.

verdomt je heb gelijk public sub en end sub helpt dat ?
en hoe ziet een functie eruit die de dt returned ?

alvast bedankt

 

[Ginanity]

Zoiets ongeveer. Ben niet meer zo thuis in vb en is niet getest ofzo eerder pseudocode...

Public Class MyDataSet

    Sub getConnection()
        'open verbinding
    End Sub

    Sub closeConnection()
        'sluit uw verbinding
    End Sub

    Public Function getDataSet(ByVal waarde As Type)
        'Maak hier uw connectieverbinden
        getConnection()
        'Maak dataset
        ds = ...
        closeConnection()

        Return ds

    End Function

    'Publieke dataset property
    Private ds As New DataSet
    Public Property DataSet() As DataSet
        Get
            Return ds
        End Get
        Set(ByVal value As DataSet)
            ds = value
        End Set
    End Property
End Class

succes

 

[nojat]

alsnog bedankt
nojat

Zoiets ongeveer. Ben niet meer zo thuis in vb en is niet getest ofzo eerder pseudocode...

Public Class MyDataSet

    Sub getConnection()
        'open verbinding
    End Sub

    Sub closeConnection()
        'sluit uw verbinding
    End Sub

    Public Function getDataSet(ByVal waarde As Type)
        'Maak hier uw connectieverbinden
        getConnection()
        'Maak dataset
        ds = ...
        closeConnection()

        Return ds

    End Function

    'Publieke dataset property
    Private ds As New DataSet
    Public Property DataSet() As DataSet
        Get
            Return ds
        End Get
        Set(ByVal value As DataSet)
            ds = value
        End Set
    End Property
End Class

succes