如何控制不再增加记录 vb.net 急！！！！！！！！！
还有问题就是 保存时每点击保存一次数据库中就多了一条记录 如何控制不在增加呢

If Session( "safepage_exist ") = 0 Then
If sealx.Text = " " Or nmbhg.Text = " " Or ratiohg.Text = " " Or lossm.Text = " " Then
msg1.Text = "请将信息填写完整! "
Return
End If
Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn "))
conn.Open()
Dim strSelect As String = "select * from 月份数据动态表 where 企业名称= ' " & Session( "企业名称 ") & " ' and 年 = " & Year(Now) & " and 月 = " & Month(Now)
Dim adp As New SqlDataAdapter(strSelect, conn)
Dim ds As New DataSet()
adp.Fill(ds, "月份数据动态表 ")
Dim dt As DataTable = ds.Tables( "月份数据动态表 ")
Dim dr As DataRow
dr = dt.NewRow()
dr( "年 ") = y.Text
dr( "月 ") = m.Text
dr( "企业名称 ") = qy.Text
dr( "焊接x光拍片张数 ") = sealx.Text
dr( "一次合格张数 ") = nmbhg.Text
If ratiohg.Text > = 0 And ratiohg.Text <= 100 Then
dr( "合格率 ") = ratiohg.Text
Else
msg1.Text = "您的输入有误!请重新输入! "

Return
End If
dr( "质量损失额 ") = lossm.Text

dr( "录入状态 ") = 5

dt.Rows.Add(dr)
Dim cmdbld As New SqlCommandBuilder(adp)
adp.Update(ds, "月份数据动态表 ")
conn.Close()
conn = Nothing
End If

不好意思代码很乱 可是我现在真是不懂了 只能是发上来麻烦大家了

这段代码的作用是要在录入数据后保存 当然有问题也可以修改 因为这个每个月只要录入一次每次就是一条 但是呢录入完后我每按一次保存就多一条同样的重复数据 这就是我想解决的

希望各位高手帮我写上代码


[解决办法]
dr = dt.NewRow()

有了这句还会不增加记录?

你应该先判断一下你要添加的记录是否在数据库中已经存在,不存在才添加,存在就直接修改