转:Visual Basic.NET快速开发MIS系统(4)

转:Visual Basic.NET快速开发MIS系统(4)

现在假设有物理表tChange与tInfo表是一关联表，通过关键字段fID关联，既表tChange的字段fID的数据是通过tInfo表提供，其它来源于用户的输入，要生成tChange表数据处理的窗体。要实现这些功能，我们同样通过窗体的继承来完成（有物理表tSub也如此）。

.先定义窗体模板frmModul2,此frmModul2继承frmModul, 即：Public Class frmModul2: Inherits Asset.frmModel。 在frmModul2中加入列表盒控制ListBox1和其它控制，布置好后如下图：

.在frmModul2的Load事件中填充ListBox的数据并隐藏不必要的控件。

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

FillListBox(Me.ListBox1)

Me.tlbAdd.Visible = False

End SubPublic

Sub FillListBox(ByVal ListBox As ListBox)

Dim StrSQL As String

StrSQL = "select Distinct fID || @# @# || fName as a FROM tInfo "

Dim dr As OleDb.OleDbDataReader

dr = DB.SQLDataReader(StrSQL)

While dr.Read

ListBox.Items.Add(dr.Item("a"))

End While