Fco
06 de Agosto del 2004

Cuando limpio msflexdgrid.clear me limpia el control pero cuando vuelvo a introducir datos me empieza por la segunda fila, que debo hacer


Private Sub CommNuevo_Click()
TextArticulos.Text = ""
MaskUds.Text = ""
MaskPrecio.Text = ""
MaskDto.Text = ""
MaskImporte.Text = ""
'limpia el msfexgrid
Me.MSFlexGrid1.Clear
Me.TextArticulos.SetFocus

End Sub

Private Sub MaskImporte_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.TextArticulos.SetFocus

If MaskImporte = "" Then
Exit Sub
Else
'Añade una fila al grid
fila = MSFlexGrid1.Rows - 1
MSFlexGrid1.TextMatrix(fila, 0) = TextArticulos.Text
MSFlexGrid1.TextMatrix(fila, 1) = MaskUds.Text
MSFlexGrid1.TextMatrix(fila, 2) = MaskPrecio.Text
MSFlexGrid1.TextMatrix(fila, 3) = MaskDto.Text
MSFlexGrid1.TextMatrix(fila, 4) = MaskImporte.Text
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
TextArticulos.Text = ""
MaskUds.Text = ""
MaskPrecio.Text = ""
MaskDto.Text = ""
MaskImporte.Text = ""

Me.TextArticulos.SetFocus

End If

End If

End Sub