instruccion Do with en MSHFlexGrid se traba.

[rouuss]

Hola!! ojala alguien detecte donde anda mal mi codigo, tratare de ser breve.
En mi MSHFlexiGrid se traba cuando entra al Do while, me recorre el CatalogoDePecios, pero por cliente, es decir si tego 100clientes me recorre los 100
y solo deseo que me muestre por catalogo,es decir si de mis 100 clientes, 20 son pertenecen a 1 catalogo, aunque eso no importa por que solo quiero que
me muestre los catalogos (que unicamente tengo 6) para armar mi concentrado.

En mi BD tengo estas tablas con sus respectivos registros:

CatalogoPrecios
IdCatalogoPrecios
NombreCatalog
FechaMovimiento
ListaPrecio
IdCatalogoDePrecios
IdProdcuto
Unidad
PrecioU
Clientes
IdCliente
nombreCliente
IdCatalogoPrecios
Direccion
Contacto

'LLENA EN MSHFLexGrid LOS COMEDORES
' MSHFLexGrid esta nombrado como FlexComedor
Private Sub LLenaComedor()
Dim rcComedor As ADODB.Recordset

SQL = "SELECT CatalogoDePrecios.* FROM CatalogoDePrecios ORDER BY CatalogoDePrecios.CatalogoDePrecios;"
Set rcComedor = New ADODB.Recordset
rcComedor.Open SQL, cnBDDecfruver, adOpenStatic, adLockOptimistic

FlexComedor.Clear
FlexComedor.Rows = 1
FlexComedor.Cols = 4
FlexComedor.ColWidth(0) = 0
FlexComedor.ColWidth(1) = 5600
FlexComedor.ColWidth(2) = 0: FlexComedor.ColWidth(3) = 0

With rcComedor
.MoveFirst

Do While Not .EOF
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 1) = !NombreCatalogo
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 2) = !IdCatalogoPrecios
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 3) = "NO"
FlexComedor.Rows = FlexComedor.Rows + 1
.MoveFirst
Loop
End With
FlexComedor.Rows = FlexComedor.Rows - 1
rcComedor.Close
End Sub

Pero en Do While Not .EOF, me recorre el CatalogoDePecios, pero por cliente (supongo, porque lo recorre una y otra vez),
y solo deseo que me muestre por catalogo,es decir si de mis 100 clientes, 20 son pertenecen a 1 catalogo, para armar mi concentrado.

Este mismo codigo lo utilice para mostrar las categorias de mis producto y funciona muy bien, pero aqui no se porque nunca termina,
y se traba mi aplicacion.

gracias!! salu2

[sonyweb]

Código:

 Do While Not .EOF
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 1) = !NombreCatalogo
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 2) = !IdCatalogoPrecios
FlexComedor.TextMatrix(FlexComedor.Rows - 1, 3) = "NO"
FlexComedor.Rows = FlexComedor.Rows + 1
.MoveFirst  <----aqui te estas moviendo siempre al primer registro
Loop
End With
FlexComedor.Rows = FlexComedor.Rows - 1
rcComedor.Close
End Sub

[rouuss]

Siii!!!, que pena, muchas gracias por tu atencion.

Saludos
Rouss