Macrosustitucion en Visual Basic 2010

[HaverRamirez]

Bueno, aqui ya nos metemos a los arreglos, en programación orientada a objetos, no se como estes llevando tu aplicación, asi que te dare la forma sencilla de hacerlo, tu procedimiento puede esperar un tipo DataTable, y lo que haces es al Datatable agregarle columnas y filas dependiendo si los textbox tienen valores, algo asi

Código vb:

Public Function CreaEstructuraTabla() As DataTable
        Try
            Dim table As New DataTable
            Dim column As DataColumn = New DataColumn
            column.DataType = System.Type.GetType("System.String")
            column.AllowDBNull = False
            column.Caption = "Tipo"
            column.ColumnName = "Tipo"
            table.Columns.Add(column)
            Return table
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function
 

ahora solo creas las filas y le agregas valores

Código vb:

Dim dt As New DataTable
            dt = CreaEstructuraTabla()
            Dim rw As DataRow
            rw = dt.NewRow
            rw("Tipo") = "Venta"
            dt.Rows.Add(rw)
            rw = dt.NewRow
            rw("Tipo") = "Devolución"
            dt.Rows.Add(rw)
 

y en tu procedimiento que espera estos valores le pones

Código vb:

sub function OperaFactura(byval dt as datatable)
dim fila as string
for each dt as datarow in dt.rows
fila = dt("Tipo")
next
end function
 

es un ejemplo tendras que darle forma, ahora tambien puede crear arreglos, esta parte es mas complicada, pero mucho mas escalable o sea mas facil de modificar despues, y tambien puedes pasar tipos arralist pero eso depende de que estes haciendo, como estas con tu aplicación, cual es tu mira, ya tienes codigo y lo estas modificando, estas empezando etc.