谢谢。如果用户存在，更新两个信息。下代码运行中，更新的信息不是当前用户的。请老师指点。
Dim dr As DataRow
Dim name As String =Tables("购置申请管理").Current("申请人姓名")
dr = DataTables("内部通讯录").Find("姓名 = '" & name & "'")
If dr IsNot Nothing Then '如果找到的话
Dim Result As DialogResult
Result = MessageBox.Show("用户已经存在,更新信息吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
MessageBox.Show("好的,我更新.","提示")
Tables("购置申请管理").Current("申请人姓名")= Tables("内部通讯录").Filter="姓名 = '" & name & "'"
Tables("购置申请管理").Current("申请人电话")= Tables("内部通讯录").Current("办公电话")
Tables("购置申请管理").Current("申请人邮件")= Tables("内部通讯录").Current("电子邮箱")
MessageBox.Show("更新完成,谢谢!","提示")
Else
MessageBox.Show("好的,听你的!","提示")
End If
Else
Tables("内部通讯录").AddNew()
Tables("内部通讯录").Current("姓名")= name
Forms("内部通讯录扩充").open
End If
[此贴子已经被作者于2015-1-6 9:17:32编辑过]
加好友 
发短信
Post By：2015/1/5 16:16:00 [显示全部帖子]
