level 1
taogehu9
楼主
我在form_load事件里给DataGridView动态加了两列按钮,分别是跳转到指定的链接和删除一行数据。当有多条数据时,每一行的跳转按钮都可以响应单击事件,但是删除一行按钮只能响应一次,就是说删除掉一行时可以正常运行,但是接下来如果想再删一行,所有的按钮都失去响应,也不会报错,请大神指点迷津。关键代码如下:
Try
If e.ColumnIndex = DataGridView1.Columns(5).Index Then '跳转到指定链接的按钮
Dim url As String = DataGridView1.Item("链接", e.RowIndex).Value
Form2.Visible = True
Form2.WebBrowser1.Navigate(url)
Form2.WebBrowser1.ScriptErrorsSuppressed = True
Else
If e.ColumnIndex = DataGridView1.Columns(6).Index Then '删除一行的按钮
Dim url As String = DataGridView1.Item("链接", e.RowIndex).Value
Dim jigou As String = DataGridView1.Item("发布机构", e.RowIndex).Value
Dim sqlstr As String = "update " & jigou & " set 更新状态 = '否' where 链接 = " & "'" & url & "'"
Dim dt1 As DataTable
updateaccess(sqlstr, linkpath, jigou) '自己写的更新数据库函数,可以正常使用
dt1 = redata(linkpath, jigou, 30) '自己写的数据表重构函数,目的是让update后的数据不再显示,也可以正常使用
DataGridView1.DataSource = dt1 '使用dt1更新一下数据源,这样被update的数据就从datagridview里删掉了
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try

2018年06月16日 13点06分
1
Try
If e.ColumnIndex = DataGridView1.Columns(5).Index Then '跳转到指定链接的按钮
Dim url As String = DataGridView1.Item("链接", e.RowIndex).Value
Form2.Visible = True
Form2.WebBrowser1.Navigate(url)
Form2.WebBrowser1.ScriptErrorsSuppressed = True
Else
If e.ColumnIndex = DataGridView1.Columns(6).Index Then '删除一行的按钮
Dim url As String = DataGridView1.Item("链接", e.RowIndex).Value
Dim jigou As String = DataGridView1.Item("发布机构", e.RowIndex).Value
Dim sqlstr As String = "update " & jigou & " set 更新状态 = '否' where 链接 = " & "'" & url & "'"
Dim dt1 As DataTable
updateaccess(sqlstr, linkpath, jigou) '自己写的更新数据库函数,可以正常使用
dt1 = redata(linkpath, jigou, 30) '自己写的数据表重构函数,目的是让update后的数据不再显示,也可以正常使用
DataGridView1.DataSource = dt1 '使用dt1更新一下数据源,这样被update的数据就从datagridview里删掉了
End If
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "信息提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try
