Expand|Select|Wrap|Line Numbers
- Public Function getCarSize(ByVal carSize_String As String) As String
- Dim drCarSize As DataRow
- Dim drVehicles As DataRow()
- Dim manufacturerString As String
- Dim manufModelStrings(10) As String
- Dim modelString As String
- Dim modelStrings(10) As String
- Dim subInt As Integer
- drCarSize = aCustomerDataSet.CarSize.FindBySizeCode(carSize_String)
- drVehicles = drCarSize.GetChildRows("CarsToVehicleRelation")
- For Each drVehicle As DataRow In drVehicles
- manufacturerString = drVehicle.GetParentRow("CarsToVehicleRelation")!manuf_name.ToString
- modelString = drVehicle.GetParentRow("CarsToVehicleRelation")!model.ToString
- manufacturerStrings(subInt) = manufacturerString
- modelStrings(subInt) = modelString
- subInt += 1
- Next
- Return ' what?
- End Function