01/06/2009, 14:08
|
| | Fecha de Ingreso: mayo-2009
Mensajes: 3
Antigüedad: 15 años Puntos: 0 | |
Respuesta: Error 13 No conciden los tipos Hola disculpa por lo de indentacion tengo eso en mi muy estricto pero lo olvide,
espero que haya quedado claro y si no reafirmamelo por favor, espero me puedas ayudar MIL GRACIAS. Public Sub Browse ( ByVal As Recordset) On Error GoTo Errores Dim Itmx As Listitem Dim X As Integer lsvcatalogos.ListItems.Clear rs.MoveFirst For i = 1 To rs.Fields.Count If rs.Fields(i - 1).DefinedSize = 0 Then X = 8
Else X = 4
End If If rs.Fields(i - 1).Type = 5 Then lsvcatalogos.ColumnHeaders.Add , , rs.Fields(i - 1).Name, TextWidth(String(rs.Fields(i - 1).DefinedSize + X, "a")), 1
Else If rs.Fields(i - 1).DefinedSize = 0 Then
lsvcatalogos.ColumnHeaders.Add , , rs.Fields(i - 1).Name, 1800, 0
Else lsvcatalogos.ColumnHeaders.Add , , rs.Fields(i - 1).Name, TextWidth(String(rs.Fields(i - 1).DefinedSize + X, "a")), 0
End If End If Next i Do Until rs.EOF Set ItemX = lsvcatalogos.ListItems.Add(, , rs.Fields(0).Value) Apartir de este codigo se pasa al sub Errores donde dice "Error 13 No Coinciden Los Tipos", este codigo lo asigno para que me lea c/uno de los campos de la tabla el cual no lo hace. For j = 1 To rs.Fields.Count - 1
Select Case rs.Fields(j).Type
Case 1
ItemX.SubItems(j) = IIf(rs.Fields(j).Value, "Si", "No")
Case 5
ItemX.SubItems(j) = Format(rs.Fields(j).Value, "$ ###,##0.000")
Case 8
ItemX.SubItems(j) = rs.Fields(j).Value
Case Else
ItemX.SubItems(j) = rs.Fields(j).Value
End Select
Next j
rs.MoveNext
Loop StrID = lsvcatalogos.ListItems(1).Text StrID2 = lsvcatalogos.ListItems(1).Text Exit Sub Errores: MsgBox Err.Source & " frmcatalogos Browse " & Err.Number & " " & Err.Description End Sub
Cualquier respuesta esta muy bien recibida, de antemano GRACIAS. |