Vb.net 2005 - Form Master/Detail

mercoledì 21 giugno 2006 - 12.44

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Semerket Profilo | Newbie

46 messaggi | Data Invio: mer 21 giu 2006 - 12:44

Ciao a tutti volevo chiedere un parere su un progetto che sto realizzando.
In un form Master/detail ho scritto questo codice:

-------------------------------------------------------------------------------------------
Imports FirebirdSql.Data.Firebird
Public Class frmNorma

Dim ComNorma As FbCommand
Dim ComNormaDetails As FbCommand
Dim ReadNorma As FbDataReader
Dim ReadNormaDett As FbDataReader
Dim AdpNorma As FbDataAdapter
Dim AdpNormaDett As FbDataAdapter
Dim dsNorma As New DataSet
Dim dsNormaDetails As New DataSet
Dim mBinding2 As BindingManagerBase
Dim mBinding As BindingManagerBase

Private Sub frmNorma_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Connect()
ComNorma = New FbCommand("SELECT * FROM TBLNORMA ORDER BY IDNORMA", Conn, Txn)
AdpNorma = New FbDataAdapter
AdpNorma.SelectCommand = ComNorma
AdpNorma.Fill(dsNorma, "TBLNORMA")
Call BindTextBox()
ComNormaDetails = New FbCommand("SELECT * FROM TBLNORMAOPZ WHERE IDNORMA='" & txtIDNorma.Text & "'", Conn, Txn)
AdpNormaDett = New FbDataAdapter
AdpNormaDett.SelectCommand = ComNormaDetails
AdpNormaDett.Fill(dsNormaDetails, "TBLNORMAOPZ")
Me.GridNorma.DataSource = dsNormaDetails.Tables("TBLNORMAOPZ")

If Conn.State = ConnectionState.Open Then
Conn.Close()
End If
End Sub
Private Sub BindTextBox()
mBinding = Me.BindingContext(dsNorma.Tables("TBLNORMA"))
'mBinding2 = Me.BindingContext(dsNormaDetails.Tables("TBLNORMAOPZ"))
Me.txtIDNorma.DataBindings.Add("text", dsNorma.Tables("TBLNORMA"), "IDNORMA")
Me.txtIDNorma.Enabled = False
Me.txtCodNorma.DataBindings.Add("text", dsNorma.Tables("TBLNORMA"), "CODNORMA")
Me.txtNormaEstesa.DataBindings.Add("text", dsNorma.Tables("TBLNORMA"), "NORMAESTESA")
Me.txtDescNorma.DataBindings.Add("text", dsNorma.Tables("TBLNORMA"), "DESCNORMA")

End Sub

Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
Me.Close()
End Sub

Private Sub btnPrecedente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrecedente.Click

End Sub

Private Sub btnSuccessivo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSuccessivo.Click
mBinding = Me.BindingContext(dsNorma.Tables("TBLNORMA"))
mBinding2 = Me.BindingContext(dsNormaDetails.Tables("TBLNORMAOPZ"))

mBinding.CancelCurrentEdit()
mBinding2.CancelCurrentEdit()
If mBinding.Position + 1 < dsNorma.Tables("TBLNORMA").Rows.Count Then
mBinding.Position += 1
End If
If mBinding2.Position + 1 < dsNormaDetails.Tables("TBLNORMAOPZ").Rows.Count Then
mBinding2.Position += 1
End If

End Sub
End Class
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
non funziona il bottone successivo per quanto riguarda il detail.

mi sapreste aiutare anche per ottimizzare il codice.
Vi allego un immagine del form

Grazie a tutti

536x474 19Kb

Un Saluto di Luce a tutti!

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 !