Visual Basic - Ayuda con datagrid VB 6.0

Life is soft - evento anual de software empresarial
   
Vista:

Ayuda con datagrid VB 6.0

Publicado por jorge carias (1 intervención) el 21/11/2011 22:08:19
Hola Expertos,Estoy creando un programa en Visual Basic 6.0 un programa para una iglesia que guarde cada diezmo de cada persona registrada,pero cada usuario q guarde su diezmo le quede guardado en su cuenta persona y cada usario tenga su cuenta de cuanto lleva diezmado.

este es el codigo de programacion hacia el datagrid

Private Sub Cargar_Grid_D(Filtro, NumSemana As String)

DataEnvironment1.rsCommand3.Open "SELECT ('ww',[Fecha],2.2) AS NumSemana, Fecha, Format(monto,'Standard') AS monto From Diezmo GROUP BY ceddiezmo, DatePart('ww',Fecha,2.2), Fecha, Format(monto,'Standard') Having ceddiezmo =" & Filtro & " ORDER BY Fecha"




Set DataGrid1.DataSource = DataEnvironment1.rsCommand3


DataGrid1.Columns(0).Alignment = dbgCenter
DataGrid1.Columns(1).Alignment = dbgCenter
DataGrid1.Columns(2).Alignment = dbgRight
DataGrid1.Columns(0).Caption = "Nro de Mes"
DataGrid1.Columns(1).Caption = "Fecha"
DataGrid1.Columns(2).Caption = "Monto"





DataGrid1.Refresh


sumas


End Sub
Private Sub sumas()
i = 0
suma = 0
Row = DataGrid1.ApproxCount


For i = 0 To Row - 1

DataGrid1.Col = 2
DataGrid1.Row = i

suma = DataGrid1.Text + suma

Next i

Text1.Text = Format(suma, "Standard")
Total_Imp = Text1.Text
End Sub

Entonces cuando voy a inserta un nuevo diezmo llamo a Data grid desde command11_click me sale este error

Private Sub Command11_Click()
Diezmo.Show vbModal
Cargar_Grid_D (txtCedula) (aqui sale el error me dice el Argumento no es opcional)
End Sub

Please Necesito ayuda con ese error ya que estoy terminando mi programa
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Ayuda con datagrid VB 6.0

Publicado por apacheco (63 intervenciones) el 22/11/2011 08:09:55
La funcion Cargar_Grid_D ....LLEVA 2 PARAMETROS OBLIGATORIOS, el filtro y la semana
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Ayuda con datagrid VB 6.0

Publicado por Jose Manuel jose-manuel1992@hotmail.com (4 intervenciones) el 02/12/2011 19:12:09
trata de poner lo que vas a aescribir en comillas y parentesis ejemplo Cargar_Grid_D ("txtCedula") ("aqui sale el error me dice el Argumento no es opcional")
colocalo asi.... queria hacerte una pregunta si tienes el codigo para imprimir por crytal report 8.0 me lo pasas si lo tienes
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar