Drowdownlist En cascada

[jam_v]

DROWDOWNLIST EN CASCADA

Señores buenas tardes a todos tengo el siguiente lio al intentar realizar un drowdownlist en cacada cuando pretendo validar el segundo ddl no me esta validando los datos de el primer dll si no q me trae todos los datos de la tabla

configure dos data set con las tablas que necesito una con marcas y otra con modelos en la primera me hace una consulta a todos los datos de marcas select * from inv_marcas y la segunda me consulta todos los datos de la tabla modelos pero validandome el id de marcas
where inv_modelos.id_marca=inv_marca.invid_mrca cuando veo el generador de consultas todo ok
estoy utilizando el kit de controles de ajax y visual st 2005

el error que me genera visual es sobre esta linea al validar el segundo drowdownlist

For Each row As DataRow In modelos.Getmodelosbymarcaid(makeid)

si quito el makeid me trae todos los campos de la tabla modelos pero si lo dejo me genera

la expresion es del tipo modelos.inv_modeloRow, que no es un tipo de coleccion

les adjunto el codigo del service

espero que me puedan colaborar muchas gracias .

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports AjaxControlToolkit
Imports AjaxControlToolkit.CascadingDropDown
Imports System.Data
Imports System.Data.DataColumn
Imports System.Data.SqlClient
Imports System.Collections
Imports System.Collections.Specialized
Imports System.Collections.Generic
Imports System
Imports System.Web.Security
Imports System.Drawing
Imports System.Net
Imports System.Web.Script.Services



<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicPr ofile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.Des ignerGenerated()> _
<System.Web.Script.Services.ScriptService()> _
Public Class referenciaservice
Inherits System.Web.Services.WebService

<WebMethod()> _
Public Function cargamarcas(ByVal knownCategoryValues As String, ByVal category As String) As CascadingDropDownNameValue()
Dim marcas As New marcaTableAdapters.inv_marcaTableAdapter
Dim valores As New List(Of CascadingDropDownNameValue)()
For Each row As DataRow In marcas.Getmarcas()
valores.Add(New CascadingDropDownNameValue(row("desc_marca").ToStr ing(), row("invid_marca").ToString()))
Next
Return valores.ToArray()

End Function

<WebMethod()> _
<System.Web.Script.Services.ScriptMethod()> _
Public Function cargamodelos(ByVal knownCategoryValues As String, ByVal category As String) As CascadingDropDownNameValue()
Dim kv As StringDictionary = CascadingDropDown.ParseKnownCategoryValuesString(k nownCategoryValues)

Dim makeid As Integer
If ((Not kv.ContainsKey("make")) Or (Not Int32.TryParse(kv("make"), makeid))) Then
Return Nothing
End If

Dim modelos As New modelosTableAdapters.inv_modeloTableAdapter()
Dim valoresmodelos As New List(Of CascadingDropDownNameValue)()

For Each row As DataRow In modelos.Getmodelosbymarcaid(makeid)
valoresmodelos.Add(New CascadingDropDownNameValue(row("desc_modelo").ToSt ring(), row("invid_modelo").ToString()))
Next
Return valoresmodelos.ToArray()
End Function

End Class


JAMV