횽들 나 지금 비쥬얼 스튜디오 2010으로 오늘까지 내야하는 숙제중인데 너무 막히는중이라서 좀 도와줘 ㅜㅜ

이게 어떻게 되냐면 주문하는건데 sql server에 테이블이 tblOrders, tblOrderDetail 이렇게 두개가 있고 OrderId가 같음

근데 문제는 tblOrders에는 OrderId가 100, 200, 300이렇게 하나씩만 있는데 tblOrderDetail에는 OrderId가 같은게 여러개가 있음 (아이템이랑 가격때문등등 하나의 아이디에 여러개의 아이템, 가격).....

그리고 sql server에서 불러와서 arraylist인 myorders에 tblOrders에서부터 하나씩 넣은뒤 마지막에 또다른 arraylist에 저장한 tblOrderDetail정보들을 넣어야 하는데 안됨 ㅜㅜ

이게 OrderId가 여러개니까 여러개가 나와야 하는데 해보면 하나만 나옴...ㅠㅠ

설명이 뭔가 어려운데 횽들을 똑똑하니까 밑에 코드보면 내가 뭘하려는지 쉽게 알거야...제발 도와줘요 횽들 ㅠㅠ

이미지도 같이 첨부했어...그림에 보면 아이디나 이름, 전화번호등이 tblOrders에서 오고 아이템이나 가격등이 tblOrderDetail임...

빨리 좀 도와주세요 ㅠㅠ

Public Shared Function dbLoadOrders() As ArrayList

        Dim myorders As New ArrayList
        Dim sql As String
        Dim cmd As SqlCommand
        Dim reader As SqlDataReader
        strError = ""

        Try
            sql = "SELECT * From tblOrders"

            dbConnect()

            cmd = New SqlCommand(sql, cn)
            cmd.CommandType = CommandType.Text
            reader = cmd.ExecuteReader()

            Do While reader.Read()
                Dim getAllOrders As New ArrayList
                getAllOrders.Add(reader("OrderId"))
                getAllOrders.Add(reader("CustomerName"))
                getAllOrders.Add(reader("Phone"))
                getAllOrders.Add(reader("OrderDate"))
                getAllOrders.Add(reader("Pickup"))
                getAllOrders.Add(reader("SameAddress"))
                getAllOrders.Add(reader("DeliveryStreet"))
                getAllOrders.Add(reader("DeliveryCity"))
                getAllOrders.Add(reader("DeliveryState"))
                getAllOrders.Add(reader("DeliveryZip"))
                getAllOrders.Add(reader("BillStreet"))
                getAllOrders.Add(reader("BillCity"))
                getAllOrders.Add(reader("BillState"))
                getAllOrders.Add(reader("BillZip"))




                sql = "Select * from tblOrderDetail " &
                "Where OrderID = '" & reader("OrderID") & "'"

                cmd = New SqlCommand(sql, cn)
                reader.Close()
                dbConnect()
                reader = cmd.ExecuteReader()

                reader.NextResult()


                Dim getOrderDetail As New ArrayList
                Dim theArrayItems(4) As String
                While reader.Read()




                    theArrayItems(0) = (reader("OrderId"))
                    theArrayItems(1) = (reader("LineId"))
                    theArrayItems(2) = (reader("Item"))
                    theArrayItems(3) = (reader("Price"))
                    theArrayItems(4) = (reader("Qty"))
                    getOrderDetail.Add(theArrayItems)

                End While


                getAllOrders.Add(getOrderDetail)
                myorders.Add(getAllOrders)
                Debug.WriteLine(myorders.Count)




            Loop


        Catch ex As SqlException
            dbAddError(ex.Message)
            Return myorders
        Catch ex As Exception
            dbAddError(ex.Message)
            Return myorders
        End Try

        Return myorders
    End Function