Ragazzi, ma non avete idee?
ah!...questo è il codice del form MDIchild
codice:
Private Sub FlexGridFatture_Click()
'Mi ricavo l'ID del cliente.
FlexGridFatture.Col = 2
IDCli = FlexGridFatture.Text
'Mi ricavo l'ID della fattura su cui ho cliccato.
FlexGridFatture.Col = 1
'Inserisco l'ID nella variabile IDFatt per prendere i dettagli della fattura.
IDFatt = FlexGridFatture.Text
'Controllo se RS è già aperto. Se è aperto lo chiudo.
If (RsDettagli.State = adStateOpen) Then
RsDettagli.Close
qDettagli = "SELECT * FROM FatturaDettagli WHERE IDFattura=" & IDFatt
RsDettagli.Open qDettagli, Cn, adOpenDynamic, adLockOptimistic
Else
'Apro il RS e mi ricavo i dettagli della fattura.
qDettagli = "SELECT * FROM FatturaDettagli WHERE IDFattura=" & IDFatt
RsDettagli.Open qDettagli, Cn, adOpenDynamic, adLockOptimistic
End If
'Carico la griglia.
Set FlexGridDettagli.DataSource = RsDettagli
FlexGridDettagli.Refresh
'Fine TAB2_________
If (RsClienti.State = adStateOpen) Then
RsClienti.Close
qClienti = "SELECT * FROM Clienti,FatturaTestata WHERE Clienti.IDCliente = FatturaTestata.IDCliente"
RsClienti.Open qClienti, Cn, adOpenDynamic, adLockBatchOptimistic
'Filtro ulteriormente RS per prendere solo i dati relativi alla fattura selez.
RsClienti.Filter = "IDFattura=" & IDFatt
ScriviCampi
Else
qClienti = "SELECT * FROM Clienti,FatturaTestata WHERE Clienti.IDCliente = FatturaTestata.IDCliente"
RsClienti.Open qClienti, Cn, adOpenDynamic, adLockBatchOptimistic
RsClienti.Filter = "IDFattura=" & IDFatt
ScriviCampi
End If
SSTabFatturazione.Tab = 1
End Sub