منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله...اريد عند استدعاء صنف معين الى كومبو بوكس مثلا او داتا جريد ان تكون الوحدة ملازمة لاسم الصنف
بمعنى...كيس سكر - كيلو او كيس ارز - 5كيلو..... وهكذا
ماهو الكود اللازم لهذه العملية مع خالص تحياتى و شكرى

كود :

Sub fill_comb()

        Dim query As String

        Dim command As OleDbCommand

        Dim reader As OleDbDataReader

        'فحص الاتصال بقاعدة البيانات

        If Conn.State = ConnectionState.Closed Then

            Conn.Open()

        End If

        query = "SELECT material_name, unit FROM [Materials]"

        command = New OleDbCommand(query, Conn)

        reader = command.ExecuteReader()

        If reader.HasRows Then

            While reader.Read()

                Combs.Items.Add(reader(0) & "-" & reader(1))

            End While

        End If

        reader.Close()

        Conn.Close()

        Combs.SelectedItem = Nothing

    End Sub

مع مراعاة تغير material_name, unit

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

salah mansour

Rabeea Qbaha