name从哪里来?
Dim name = "aaa"
Dim fdr As DataRow = e.DataTable.Find("name = '" & name & "'")
If fdr IsNot Nothing Then
msgbox("已存在")
fdr("某列") += 1
End If