Question

VB.Net DataGridView控件问题,急啊.大家帮帮忙.谢谢!

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

Dim SqlConnection As SqlClient.SqlConnection
Dim strConnect As String = "Data Source=127.0.0.1;Initial Catalog=ScData;User Id=sa;Password=123;"
SqlConnection = New System.Data.SqlClient.SqlConnection(strConnect)
SqlConnection.Open()

Dim DataAdapter As New SqlDataAdapter
Dim Dst As New DataSet
Dim Dt As New DataTable

Dim Sql As String = "Select 批号,物料代码,物料名称,规格型号,宽度,长度,包数,每包数量,总数量'张卷数',总长度,主计量单位'单位',主单位数量'数量',Case When 最后调拨至仓库='' Then 仓库 Else 最后调拨至仓库 End'仓库',Case When 最后调拨至仓位='' Then 仓位 Else 最后调拨至仓位 End'仓位' From 物料 Where 批号= ('" & TextBox1.Text & "')"
Dim Cmd As SqlCommand = New SqlCommand(Sql, SqlConnection)

DataAdapter.SelectCommand = Cmd
DataAdapter.Fill(Dst, "info")
Dt = Dst.Tables("info")

'DataGridView1.AutoGenerateColumns = True '自动创建列
'DataGridView1.DataSource = Dt

For Each row As DataRow In Dt.Rows
DataGridView1.Rows.Add(row("批号").ToString(), row("物料代码").ToString(), row("物料名称").ToString(), row("规格型号").ToString(), row("宽度").ToString(), row("长度").ToString(), row("张卷数").ToString(), row("单位").ToString(), row("数量").ToString(), row("仓库").ToString(), row("仓位").ToString())
Next
End Sub

问题是: DataGridView1.Rows.Add可以一行一行往DataGridView控件里插入数据,我在textbox控件里面连续输入两个一样的值,SQL语句执行两次,并且也会往DataGridView控件插入两行相同数据!怎么让它弹出错误提示,并且只能插入一次.

Answer 1

在TextBox1_TextChanged事件里面写不一定是好办法，加一个按钮来触发还好些，可以留联系看。

追问

麻烦你加下我的Q,帮忙一下.50532370

追答

我晚上才在线哦。

追问

好的!

Answer 2

先清除，再插入

DataGridView1.Rows.Clear()

追问

先清除，那我以前的数据也消失了啊，我不是要的这个效果

追答

先根据关键字查询表格是否存在，再添加
For Each row As DataRow In Dt.Rows
Dim query = From DataGridViewRow r In DataGridView1.Rows _
Where r("关键字").Value.ToString().Trim() =row("关键字").ToString().Trim()
If query.Count() > 0 Then
Continue For
End If
DataGridView1.Rows.Add(row("批号").ToString(), row("物料代码").ToString(), row("物料名称").ToString(), row("规格型号").ToString(), row("宽度").ToString(), row("长度").ToString(), row("张卷数").ToString(), row("单位").ToString(), row("数量").ToString(), row("仓库").ToString(), row("仓位").ToString())
Next

追问

还是有问题

追答

Imports System.Linq

追问

能不能加我Q,帮我远程一下?

追答

107037430

追问

我加你了，麻烦通过下验证