สวัสดีค่ะ เรากำลังทำโปรเจ็คจบอยู่ไม่รู้จะไปถามใครแล้ว ช่วยทีนะคะ
คือเราเขียนตรงดึงข้อมูลจากฐานข้อมูลมาแสดง ใน listview ไม่ได้
คือตอนนี้เรางงว่าเราต้องแบ่งเป็นสองส่วนแบบที่เขียนไว้ หรือต้องเราขึ้นมาจอย 5 ตารางข้างบน
เพราะถ้าเราเอาไปจอย 3 ตารางแบบที่เขียนข้างล่างมันจะไม่สามารถดึงข้อมูลจากการค้นหาชื่อได้ เราเลยไม่รู้จะทำยังไง
แล้วเราก็เขียนโค๊ตดึงฐานข้อมูลมาโชว์ใน listview ไม่เป็น คือใน listview เราจะดึงชื่อวัตถุดิบ(StkName)จากตาราง tb_Stock และดึง จำนวน(FoodAmount)จากตาราง tb_FoodDetail ซึ่งใน tb_FoodDetail  จะมีฟิว FoodID , StkID, FoodAmount

Private Sub TxtFoodSearch_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtFoodSearch.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim s As String = ""
            Dim s1 As String = ""
            If RFoodID.Checked = True Then
                s = "F.FoodID ='" & TxtFoodSearch.Text & "'"
            ElseIf RFoodName.Checked = True Then
                s = "FoodName ='" & TxtFoodSearch.Text & "'"
            End If

            s1 = "select * from tb_Food F, tb_FoodCate C where F.FCatID=C.FCatID and " & s
            With cn
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = strCon
                .Open()
            End With
            Dim da As New SqlDataAdapter(s1, cn)
            Dim ds As New DataSet
            da.Fill(ds, "food")
            With ds.Tables("food")
                If .Rows.Count <> 0 Then
                    LblFoodID.Text = .Rows(0).Item("FoodID").ToString
                    TxtFoodMenu.Text = .Rows(0).Item("FoodName").ToString
                    TextFoodPrice.Text = .Rows(0).Item("FoodPrice").ToString()
                    CboFoodCate.Text = .Rows(0).Item("FCatName").ToString
                    Pic1.ImageLocation = .Rows(0).Item("FoodPic").ToString
                    LblPic.Text = .Rows(0).Item("FoodPic").ToString
                    If .Rows(0).Item("FoodStatus") = "y" Then
                        R1.Checked = True
                    Else
                        R2.Checked = True
                    End If
                    If .Rows(0).Item("FoodStatus") = "y" Then
                        LblFoodStatus.Text = "ยังเหลืออยู่"
                        LblFoodStatus.ForeColor = Color.Green
                    Else
                        LblFoodStatus.Text = "หมดแล้ว"
                        LblFoodStatus.ForeColor = Color.Red
                    End If
                    Dim s2 As String = "select StkName,FoodAmount,UnitSname from tb_Stock S,tb_FoodDetail D ,tb_UnitStock U where S.UnitSid=U.UnitSid and S.StkID=D.StkID and D.FoodID='" & TxtFoodSearch.Text & "'"
                    Dim da1 As New SqlDataAdapter(s2, cn)
                    '--เราเข้าใจว่าต้องดึงlistviewตรงนี้
                    Else
                        MessageBox.Show("ไม่พบรายการ")
                    End If
            End With
            cn.Close()
            lockData()
        End If
    End Sub

ใครพอจะช่วยแนะนำได้ ช่วยแนะนำเราทีนะคะงมมาหลายวันมาก
ขอบคุณค่ะ