SoloCodigo

Hola a todos

mi pregunta es si con Crystal Report  7.0  puedo cargar un archivo cin cual quera de los objetos que contene como Label, TextBox entre otros, y si lo tiene como seria el Codigo Fuente en Visual Basic 6.0

cargar un archivo de texto por ejemplo

15
14
10
24
40
74
1
2
6
47
.
.
.

con el Objeto Label  

agradezco sus valiosas ayudas

Hola a todos

mi pregunta es que tengo un archivo que siempre traer 90 datos solo numericos y son datos del 1 hasta el 90
ejemplo

15
14
8
48
3
.
.
.


mi pregunta es quero traer datos a los texbox
que el primer datos  sea cargado al primer textbox

ejemplo


15   que lo muestre el texbox1
14   que lo muestre al texbox2
8     que lo muestre al texbox3

y asi sucecibamente es un promblema mas bien largo


de antemano gracias por su atencion

Hola a todos

quisiera saber como grabar una base datos un datos en un texbox no importa si son repetidos, el hecho es que cundo yo introsuzca un dato a un texbox me  guarde ese dato en cuatro campos de la tabla

ejemplo

10


al grabar

campo 1    Campo 2      Campo 3        Campo 4

10               10                  10                  10

Hola a todos

quisiera saber como vargo un archivo .txt
formardo asi

15
48
25
17
18
30
.
.
.

son 100 numeros como los mostraria

y la otra

como mastrar 5 numeros del 1 hasta el 15 del mismo archivo


de antemano gracias por la colaboracion y ayuda que me a dado este foro

exitos a todos

hola a todos tengo un archivo .txt

el archivo me carga los datos a una grilla y lo hace bien
este es el codigo



en la grilla los muestra en la primera columna 10 en la segunda 3 en la tercera columna 25 y asi con las demas columnas


Dim Listadatos(80) As Long
Private Type tData
    s_Nombre_Producto               As Currency            ' -- Campo para el Nombre del producto
    cur_Precio_Producto             As Currency         ' -- Campo para el precio del producto
End Type

' -- Declarar matriz de datos para almacenar los registros del archivo
Private the_array()         As tData

' -----------------------------------------------------------------------------------------
' \ Leer los registros del archivo y cargarlos en la matriz para poder ordenarlos
' -----------------------------------------------------------------------------------------
Private Function Fill_Array(sFileName As String) As Boolean

    On Error GoTo error_handler
   
    Dim nFileNumber     As Integer
    Dim lIndex          As Long
    Dim sLine           As String
    Dim arrLine()       As String
   
    ' -- Buscar un número de archivo libre
    nFileNumber = FreeFile
   
    Open sFileName For Input As #nFileNumber
   
    ' -- Redimensionar el array que contendrá la lista de archivos a buscar en windows
    ReDim the_array(0)
   
    ' -- Cambiar puntero de espera del mouse
    Me.MousePointer = vbHourglass
   
    ' -- Buscar ...
    While Not EOF(nFileNumber)
        ' -- índice del último elemento de la matriz
        lIndex = UBound(the_array)
       
        Line Input #nFileNumber, sLine
       
        arrLine = Split(sLine, " ")
       
        ' -- Cargar los datos en array ( Tamaño y nombre)
        With the_array(lIndex)
            .cur_Precio_Producto = CCur(arrLine(0))
            .s_Nombre_Producto = arrLine(1)
        End With
        ' -- redimensionar la matriz para el próximo elemento
        ReDim Preserve the_array(lIndex + 1)
    Wend
   
    ' -- Cerrar el archivo
    Close #nFileNumber
   
    ' -- Si hay mas de un archivo, entonces eliminar el último ya que es un elemento vacío
    If UBound(the_array) > 0 Then
        ReDim Preserve the_array(UBound(the_array) - 1)
    End If
    Fill_Array = True

    ' -- Fin
    Me.MousePointer = vbDefault
    Exit Function
error_handler:
    MsgBox Err.Description, vbCritical
    Me.MousePointer = vbDefault
    Close
End Function



Private Sub Form_Load()
IniciarConexion

Dim columna As Integer
Dim Number As Integer
Dim rn As Integer
Dim j As Integer

' -- Cargar los registros del archivo en el array
    If Fill_Array("C:texto.txt") Then
        ' -- Llamar a la función para ordenar con QuickSort
       
        ' -- Cargar los datos ordenados en el Grid ( Microsoft Flexgrid )
        Dim i As Variant
       
        With MSFlexGrid1

            For i = LBound(the_array) To UBound(the_array)
             
                For columna = 0 To 4
                 
                ' -- Agregar producto y precio ordenados en forma ascendente
                .AddItem _
                    CStr(the_array(i).s_Nombre_Producto)
                    MSFlexGrid1.TextMatrix(i, 0) = CStr(the_array(i).s_Nombre_Producto)
                    If CStr(the_array(i).cur_Precio_Producto) <= 15 Then
                    MSFlexGrid1.TextMatrix(i, 1) = CStr(the_array(i).cur_Precio_Producto)
                    ElseIf CStr(the_array(i).cur_Precio_Producto) <= 30 Then
                    MSFlexGrid1.TextMatrix(i, 2) = CStr(the_array(i).cur_Precio_Producto)
                    ElseIf CStr(the_array(i).cur_Precio_Producto) <= 45 Then
                    MSFlexGrid1.TextMatrix(i, 3) = CStr(the_array(i).cur_Precio_Producto)
                    ElseIf CStr(the_array(i).cur_Precio_Producto) <= 60 Then
                    MSFlexGrid1.TextMatrix(i, 4) = CStr(the_array(i).cur_Precio_Producto)
                    Else
                    MSFlexGrid1.TextMatrix(i, 5) = CStr(the_array(i).cur_Precio_Producto)
                    End If
                   
               Next
               Next
            'Next
        End With
       
    End If

' configuracion de la grilla
With MSFlexGrid1
For i = 0 To .Cols - 1
            .FixedAlignment(i) = 4
            .ColAlignment(i) = 4
        Next
.ColWidth(0) = 10
End With


lo que quiero es que muestre 5 datos en las filas de las 6 columnas ya que me muetra todos los datos en la grilla
el orden no interesa
Matrix (5 X 6)
de antemano gracias por su atencion prestada

Hola a todos

tengo un archivo .txt de 100 numeros mostrados asi

15
14
27
45
78
41
35
69
48
.
.
.

quiero traer 5 numeros cualquiera pero que sean del 1 hasta el 15

el orden no importa el orden

agradezco sus valisas respuestas