新的要求
现在假设有物理表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 dr.Close() End Sub .当单击ListBox1时选择当前数据并填充至txt1, txt3中 Public Overridable Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDown Dim i, txt i = ListBox1.SelectedIndex txt = ListBox1.Items(i) txt1.Text = txt.Substring(0, 15) txt3.Text = txt.Substring(16, Len(txt) - 16).trim txtID.Text = gCls.GetMaxSystemID + 1 gCls.FillGrid(DataGrid1) gIsUpdate = False End Sub |
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
您现在的位置：