扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:黎宇 来源:yesky 2007年11月10日
关键字:
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 |
Public Class frmChange:Inherits Asset.frmModul2 |
Public Sub New() … gCls.UpdateTable = "tChange" End Sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者