Fatturazione documenti di trasporto

martedì 19 dicembre 2006 - 15.36

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

jekisi Profilo | Senior Member

460 messaggi | Data Invio: mar 19 dic 2006 - 15:36

Salve a tutto il forum, avrei il seguente problema:
Ho tre datagridview.
Nelle prime 2 tendo i dati relativi alla testata dei documenti di trasporto, passando una riga dal datagridview di sinistra in quello di destra, in una terza datagridview mi spuntano i dettagli, se passo 2 o + documenti, mi spuntano, sempre nella terza datagridview, i dettagli di tutti i documenti.
Per fare ciò faccio:
Public Sub ImpostaRecordSourceData4()
Dim strsqlddt As String
Dim strsql As String

strsqlddt = "(SELECT DDT FROM tddt WHERE cliente=" & TextBox1.Text & " AND fattura='" & TextBox3.Text & "' and fatturata='S')"

strsql = "SELECT * FROM RDDT WHERE DDT IN " & strsqlddt

Dim CmqRDDT As New OleDb.OleDbCommand(strsql, Cn)
Dim DARDDT As New OleDb.OleDbDataAdapter(CmqRDDT)

Cn.Open()

DARDDT.Fill(Me.AziendaleDataSet6.RDDT)

Cn.Close()
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Cn.Open()

sql = "UPDATE TDDT SET FATTURATA='S', fattura=" & TextBox3.Text & " WHERE DDT=" & DDTTextBox.Text

cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader

Cn.Close()
Me.TDDTTableAdapter.FillBy(Me.AziendaleDataSet3.TDDT, New System.Nullable(Of Integer)(CType(TextBox1.Text, Integer)), TextBox4.Text)
TDDTDataGridView.Refresh()
Me.TDDTTableAdapter1.FillBy(Me.AziendaleDataSet5.TDDT, New System.Nullable(Of Integer)(CType(TextBox1.Text, Integer)), TextBox5.Text, TextBox3.Text)
TDDTDataGridView1.Refresh()
ImpostaRecordSourceData4()
End Sub

Adesso, quando passo una riga da destra verso sinistra, i dettagli del documento che tolgo si dovrebbero togliere.
La cosa avviene, ma devo riavviare l' applicazione, che è la cosa che vorrei appunto EVITARE.

Io nel codice scrivo la seguente cosa:
Cn.Open()

sql = "UPDATE TDDT SET FATTURATA='N', fattura='' WHERE DDT=" & DDTTextBox1.Text

cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader

Cn.Close()
Me.TDDTTableAdapter.FillBy(Me.AziendaleDataSet3.TDDT, New System.Nullable(Of Integer)(CType(TextBox1.Text, Integer)), TextBox4.Text)
TDDTDataGridView.Refresh()
Me.TDDTTableAdapter1.FillBy(Me.AziendaleDataSet5.TDDT, New System.Nullable(Of Integer)(CType(TextBox1.Text, Integer)), TextBox5.Text, TextBox3.Text)
TDDTDataGridView1.Refresh()

ImpostaRecordSourceData4()

ho anche provato a mettere il refresh per la griglia interessata

RDDTDataGridView.Refresh()
dopo ImpostaRecordSourceData4()

ma niente

Qualcuno sa aiutarmi su questo?

Distinti Saluti Fabio Messina

totti240282 Profilo | Guru

1.574 messaggi | Data Invio: mer 20 dic 2006 - 09:53

ma associ poi alla griglia la datatable riempita ???
C'è solo un capitano !!!!!!

jekisi Profilo | Senior Member

460 messaggi | Data Invio: gio 21 dic 2006 - 19:42

Risolto
Cn.Open()

sql = "UPDATE TDDT SET FATTURATA='N', fattura='' WHERE DDT=" & DDTTextBox1.Text

cmd = New OleDb.OleDbCommand(sql, Cn)
dr = cmd.ExecuteReader

Cn.Close()
AziendaleDataSet6.Clear()

Me.TDDTTableAdapter.FillBy(Me.AziendaleDataSet3.TDDT, New System.Nullable(Of Integer)(CType(TextBox1.Text, Integer)), TextBox4.Text)
'TDDTDataGridView.Refresh()
Me.TDDTTableAdapter1.FillBy(Me.AziendaleDataSet5.TDDT, New System.Nullable(Of Integer)(CType(TextBox1.Text, Integer)), TextBox5.Text, TextBox3.Text)
'TDDTDataGridView1.Refresh()

ImpostaRecordSourceData4()

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !