bonjour,
je veux tout d'abord remercier tout les membres de ce forum de leur aide " moi je ne suis qu'une débutante et je souhaite arriver aussi des gens quand je serai pro " ^^
mon probleme c'est que j'ai une gridview que je dois remplir à partir des champs de mon form et quand je clique sur valider la ligne s'enregistre dans le datatable ainsi qu'une ligne s'ajoute au gridview et quand je clique sur valider ca y est je confirme que j'ai tout ajouté à la base de données mais mon probleme c'est que lors de l'ajout d'un nouveau numero de piece un test doit s'effectuer au niveau de la base de données pour que le numero de piece doit egale au max+1 mais quand j'ajoute au gridview le num de piece reste le meme ainsi que rien ne s'ajoute a la base de données "merci pour l'aide"
le code qui se fait au niveau de la colonne
le code de l'ajout au gridview a ce niveau ca marche bien
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Dim ccmd As New OleDbCommand("select max([num-piece]) from EcritureComptable where [Cod-journal]='" & Me.combo_jrnl.Text & "' ", cn) cn.Open() Dim var As Object var = ccmd.ExecuteScalar If var Is DBNull.Value Then var = 1 Else var = var + 1 End If t4.Text = var Me.txt_dEcr.Focus() Catch ex As Exception Me.lb_msg.Text = ex.Message End Try cn.Close()
l'idée que j'ai eu c'est creer un datatable et y stoquer tout ces données et en fin de compte tout ajouter à la base de données mais le probleme qui se pose c'est le test qui s'effectue au niveau du numero de piece dans la base de données donc a chaque fois que j'ajoute une ligne au gridview le numero de piece reste le meme
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 If cpt = True And piece = False Then Dim dr As DataRow = ViewState("dt").NewRow() ViewState("dt").Rows.Add(dr) dr(0) = Me.combo_jrnl.Text dr(1) = Me.t4.Text dr(2) = Me.txt_Ncpt.Text dr(3) = Me.txt_NFacture.Text dr(4) = Me.txt_LibEcr.Text dr(5) = Me.txt_dbt.Text dr(6) = Me.txt_crd.Text dr(7) = Me.txt_dtEch.Text dr(8) = Me.txt_dEcr.Text dr(9) = Me.txt_RefDoc.Text gv1.DataSource = ViewState("dt") gv1.DataBind() formater() gv1.Visible = True
Partager