Programación General > Visual Basic 6.0 e inferiores

 Sistema: Cheques En Cartera

<< < (2/2)

Makko:
Gracias Ebolo, te comento que intente utilizando la propiedad ROWS pero no hace nada, si bien ahora ya no tira error pues no logra hacer nada...

Alguien mas??? :(

Jose Arriagada:
Sorry, por los detalles, pero lo hice mentalmente, sin probar...

Ahi te va el codigo con ejemplos y probado...


Private Sub command1_Click()
'Se obtiene la fecha de hoy
HoyDia = Date
'Se obtiene el numero serial de la fecha de hoy
SerialHoyDia = DateSerial(Year(HoyDia), Month(HoyDia), Day(HoyDia))

For i = 1 To MSFlexGrid1.Rows - 1
    'Se obtiene el importe
    MSFlexGrid1.Col = 5
    MSFlexGrid1.Row = i
    xImporte = CDbl(MSFlexGrid1.Text)
   
    'Se obtiene el contenido de la celda Destino
    MSFlexGrid1.Col = 7
    MSFlexGrid1.Row = i
    sDestino = Trim(MSFlexGrid1.Text)
   
    If Len(sDestino) = 0 Then
        Suma = Suma + xImporte
    End If
   
    'Se obtiene la fecha de cheque
    MSFlexGrid1.Col = 4
    MSFlexGrid1.Row = i
    sFecha = MSFlexGrid1.Text
   
    'Se obtiene el numero serial de la fecha del cheque
    SerialCheque = DateSerial(Year(sFecha), Month(sFecha), Day(sFecha))
   
    If SerialCheque = SerialHoyDia Then
        For j = 1 To MSFlexGrid1.Cols - 1
            MSFlexGrid1.Col = j
            MSFlexGrid1.CellBackColor = vbRed
        Next j
    End If
Next i

MsgBox "Total Cheques:" & Suma

End Sub

Private Sub Form_Load()
MSFlexGrid1.Cols = 8
MSFlexGrid1.Rows = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 1: MSFlexGrid1.Text = "Cliente"
MSFlexGrid1.Col = 2: MSFlexGrid1.Text = "N° Cheque"
MSFlexGrid1.Col = 3: MSFlexGrid1.Text = "Banco"
MSFlexGrid1.Col = 4: MSFlexGrid1.Text = "Fecha"
MSFlexGrid1.Col = 5: MSFlexGrid1.Text = "Importe"
MSFlexGrid1.Col = 6: MSFlexGrid1.Text = "Observac"
MSFlexGrid1.Col = 7: MSFlexGrid1.Text = "Destino"

For i = 1 To 30
    MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
    MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
    MSFlexGrid1.Col = 1: MSFlexGrid1.Text = Format(i & "-06-2006", "dddd")
    MSFlexGrid1.Col = 2: MSFlexGrid1.Text = Format(CInt(Rnd() * 10) + i * 13 + i)
    MSFlexGrid1.Col = 3: MSFlexGrid1.Text = Format(i & "-06-2006", "mmm")
    If i = 5 Or i = 14 Or i = 23 Then
        MSFlexGrid1.Col = 4: MSFlexGrid1.Text = Format(Date, "dd-mm-yyyy")
    Else
        serial = DateSerial(Year(Date), Month(Date), Day(Date)) + i * 6 + 1
        MSFlexGrid1.Col = 4: MSFlexGrid1.Text = Format(serial, "dd-mm-yyyy")
    End If
    MSFlexGrid1.Col = 5: MSFlexGrid1.Text = Format(CInt(Rnd() * 10000), "#,##0")
    MSFlexGrid1.Col = 6: MSFlexGrid1.Text = Format(i & "-06-2006", "dddd")
    If i = 7 Or i = 13 Or i = 21 Or i = 29 Then
        MSFlexGrid1.Col = 7: MSFlexGrid1.Text = Format(i & "-06-2006", "dddd")
    End If
'Cliente, Cheque Numero, Banco, Fecha Cobro, Importe ($), Observaciones y Destino
Next i

End Sub

Navegación

[0] Índice de Mensajes

[*] Página Anterior