26-02-19, 07:58 PM
الاخوة الافاضل
السلام عليكم ورحمة الله وبركاته
اسعد الله لحظاتكم
لدي مشروع فيجول بيسك مرتبط بقاعدة بيانات اكسيسبها جدول اسمه stat (الحالة) مقسم الى (stat_code) و (stat_name)
فى الفورم تم ربط الــ Combobox بعمود (stat_name)
كل ما اريده هو عندما اختار اسم الحالة (مستمر - منتهى - جاري التجديد) من الــ Combobox يظهر فى الــ Textbox الكود الخاص به فى الجدول
وشكرا لكم
كود :
Imports System.Data.OleDb
Public Class lett
Dim con As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=letdb.mdb")
Dim da As New OleDbDataAdapter()
Dim dt As New DataTable
Sub save_data()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Sub load_data()
Dim dt As New DataTable
da = New OleDbDataAdapter("select * from LETTERS", con)
da.Fill(DT)
Dim dtJobTicketNo As New DataTable
Dim cmd As New OleDbCommand("select * from LETTERS where let_code =" & TextBox1.Text & "", con)
Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_code)+1 AS JobTicketNo from LETTERS", con)
con.Open()
TextBox1.Text = dcJobTicketNo.ExecuteScalar
con.Close()
filldata1()
End Sub
Sub filldata1()
da = New OleDbDataAdapter("select * from stat", con)
da.Fill(dt)
ComboBox3.DataSource = dt
ComboBox3.DisplayMember = "stat_name"
End Sub
Private Sub lett_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
load_data()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Close()
End Sub
End Class