form_2.vb

通版开发平台

Imports System.Data
Imports System.Data.SqlClient

Public Class Form_2


    Private _sqlDataSource As String
    Public Property fcSqlDataSource() As String
        Get
            Return _sqlDataSource
        End Get
        Set(ByVal value As String)
            _sqlDataSource = value
        End Set
    End Property


    Private _forms As S_Forms
    Public Property forms() As S_Forms
        Get
            Return _forms
        End Get
        Set(ByVal value As S_Forms)
            _forms = value
        End Set
    End Property



    Private Sub Form_2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Sub New(ByVal f As S_Forms)






        ' 此调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。

        Me.Height = f.Height
        Me.Width = f.Width
        Me.Text = f.Text
        Me.forms = f

        For Each DataSource As S_DataSource In S.SDataSource.Values
            If f.FormID = DataSource.FormID Then
                If f.DetailName = DataSource.FcTabName Then
                    Me.fcSqlDataSource = "Select " + DataSource.SelectedSql + " From " + DataSource.FromSql
                End If
            End If
        Next

        Fill_Tree()
        Fill_list()
    End Sub


    Sub Fill_Tree()
        Dim da As New DataSet("AS_Employee_DataSet")
        Dim sa As New SqlDataAdapter(Me.fcSqlDataSource, DbOperate.csb.ToString)

        Debug.Write(fcSqlDataSource)
        sa.Fill(da)
        For Each t As DataTable In da.Tables
            For Each r As DataRow In t.Rows
                '
            Next
        Next
    End Sub

    Sub Fill_list()

    End Sub
End Class