مشکل با دیتا گرید ویو

[elnazii]

دوستان من از یک دیتا گرید ویو استفاده می کنم تا یک رکورد ثبت کنم و بعد مقادیر جدولم رو نشون بدم و با این کد هایی که گذاشتم. ولی گاهی درست کار می کنه و گاهی دیتا گرید ویو هیچ چی نشون نمی ده:افسرده:



Dim cn As New SqlConnection(strcon)
cn.Open()

Dim strsql As String
strsql = "insert INTO [fehrest]([shomaresabtekhati],[fehrest])values(N'" & shomaresabteamval & "',N'" & txt0.Text & "')"
Dim cmd As New SqlCommand
cmd.Connection = cn
cmd.CommandText = strsql
cmd.ExecuteNonQuery()


txt0.Clear()

strsql = "select * from [fehrest] where shomaresabtekhati = '" & shomaresabteamval & "'"

Dim da As New SqlDataAdapter(strsql, strcon)
Dim ds As New DataSet
ds.Clear()
da.Fill(ds)
DGv1.DataSource = ds
DGv1.DataMember = "table"

DGv1.Columns(0).Visible = False
DGv1.Columns(0).HeaderText = "شماره ثبت اموال"
DGv1.Columns(1).Visible = False
DGv1.Columns(1).HeaderText = "ردیف"
DGv1.Columns(2).Visible = True
DGv1.Columns(2).HeaderText = "فهرست"
DGv1.Refresh()
cn.Close()

[ali_ahr7]

ميتوني بگي اين كد هارو تو كدوم رويداد نوشتي؟
مثلا توي فرم لود نوشتي يا هنگام فشردن كليد؟

[elnazii]

هنگام فشردن کلید ثبت
البته این کارها رو برای ویرایش و حذف نیز جداگانه انجام می دم

[singel]

cmd2.CommandType = CommandType.Text
cmd2.CommandText = "insert into pcm (code,te1) values ('" + TextBox13.Text + "','" + TextBox17.Text + "')"
cmd2.Connection = cnt
da2.SelectCommand = cmd2
dt2.Clear()
da2.Fill(dt2)


cmd3.CommandType = CommandType.Text
cmd3.CommandText = "select * from sabt"
cmd3.Connection = cnt
da3.SelectCommand = cmd3
dt3.Clear()
da3.Fill(dt3)
DataGridView1.DataSource = dt3


اینجوری امتحان کن
من تا حالا باهاش مشکل نداشتم

[elnazii]

لطفا می شه توضیح بدید این چه فرقی با کد من داره ؟