求好人 VB大神 。选中表的一行 点击修改 弹出对话框 可修改 并保存

可以在datagrid第一列加checkbox
Dim i, j, zhongzhi,s As Integer
Dim k(zhongzhi - 1) As Boolean
For i = 0 To zhongzhi- 1 '读取checkbox值
k(i) = CBool(CKDataGridView.Rows(i).Cells(0).EditedFormattedValue)
Next

For i = 0 To zhongzhi - 1
If k(i) Then '判断是否选择
************** '这里弹出form就行 修改就是用update更新数据库就行
Else
s = s + 1
End If
If s = zhongzhi Then
MsgBox("没有选择要修改的项！", vbOKOnly, "警告")
End If