16,549
社区成员
发帖
与我相关
我的任务
分享
Imports System.Data
Imports System.Data.OleDb
Public Class Form_main
Public my_table As New DataTable
Private Sub AToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AToolStripMenuItem.Click
Dim f As New Form_a(Me.my_table)
f.MdiParent = Me
f.Show()
End Sub
Private Sub BToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BToolStripMenuItem.Click
Dim f As New Form_b(Me.my_table)
f.MdiParent = Me
f.Show()
End Sub
Private Sub Form_main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn_str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"
Dim sql As String = "select * from test_table"
Dim conn As New OleDbConnection(conn_str)
Dim dap As New OleDbDataAdapter(sql, conn)
conn.Open()
dap.Fill(my_table)
conn.Close()
End Sub
End Class
Public Class Form_a
Sub New(ByVal dt As System.Data.DataTable)
' 此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
' 在 InitializeComponent() 调用之后添加任何初始化。
Me.ComboBox1.DataSource = dt
Me.ComboBox1.DisplayMember = "text_list"
Me.ComboBox1.SelectedIndex = 0
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
MsgBox("窗体A中的ComboBox1_SelectedIndexChanged事件被触发了!")
End Sub
Private Sub Form_a_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Public Class Form_b
Private Sub Form_b_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Public Sub New(ByVal dt As System.Data.DataTable)
' 此调用是 Windows 窗体设计器所必需的。
InitializeComponent()
' 在 InitializeComponent() 调用之后添加任何初始化。
Me.ComboBox1.DataSource = dt
Me.ComboBox1.DisplayMember = "text_list"
Me.ComboBox1.SelectedIndex = 0
End Sub
End Class