Ver Mensaje Individual
  #2 (permalink)  
Antiguo 26/02/2013, 10:04
Gustavo1973
 
Fecha de Ingreso: abril-2007
Ubicación: Merlo
Mensajes: 314
Antigüedad: 17 años, 1 mes
Puntos: 3
Como declaro y uso las Matrices?

Ahora lo que pasa es que no estoy muy ducho con matrices en VB.net 2008, nunca las use.
La matriz se carga desde una base de datos.
La declare en un modulo variables como publica y como no se cuantos items tendra, la declare asi.

Public AArticulos ( , ) as double

y en otro mudulo la quiera cargar asi:

Código vb:
Ver original
  1. Public Sub CargaArrayArticulos()
  2.         Dim dt As DataTable = New DataTable("Tabla")
  3.         Dim dr As DataRow
  4.         Dim cnn As OleDbConnection
  5.         Dim con As Conexion
  6.         Dim ds As New DataSet
  7.         Dim tabla As DataTable
  8.         Dim precio As Double
  9.         Dim row As DataRow
  10.         Dim c As Integer
  11.         'On Error GoTo rError
  12.        con = New Conexion
  13.         cnn = con.DBConectar
  14.         cnn.Open()
  15.         ds = con.consulta("select id_materiales, precio, recargo from materiales ", cnn)
  16.         cnn.Close()
  17.         c = 0
  18.         For Each tabla In ds.Tables
  19.             For Each row In tabla.Rows
  20.                 AArticulos(c, 0) = row(0)
  21.                 AArticulos(c, 1) = row(1)
  22.                 AArticulos(c, 2) = row(2)
  23.                 c = c + 1
  24.             Next row
  25.         Next tabla
  26. rError:
  27.         rtaError = evaluarError(Err)
  28.         'de acuerdo a la respuesta, realiza...
  29.        Select Case rtaError
  30.             Case Finalizar
  31.                 End
  32.             Case Reintentar
  33.                 Resume
  34.             Case Ignorar
  35.                 Resume Next
  36.             Case Cancelar
  37.                 'no hace nada
  38.        End Select
  39.     End Sub
Pero me tira error al ejecutar.
Como se hace?

Última edición por Gustavo1973; 26/02/2013 a las 11:01