代码如下：我的意思很简单，只有当用户名为【002招聘总监】和【003招聘经理】时才有能删除数据。删除的时候必须在【备注1】里输入原因，已经删到【备选库】的数据不能删除。但是这个代码在运行的时候出错，提示：从字符串“003招聘经理”到类型“boolean”的转换无效，求解~~~~~
If _username = "002招聘总监" And "003招聘经理" Then
Dim Result As DialogResult
Result = Messagebox.Show("确定不再考虑我了吗 ?","温馨提示", MessageBoxButtons.YesNo, MessageBoxIcon.warning)
If Result = DialogResult.Yes Then
If CurrentTable.Current.IsNull("备注1") Then
Messagebox.Show("★★请在【备注1】输入删除原因★★","提示")
Else
Dim dr As DataRow = DataTables("备选库").AddNew
If CurrentTable.Name = "校园招聘明细表" Then
For Each dc As DataCol In DataTables("备选库").DataCols
dr(dc.Name) =CurrentTable.Current(dc.Name)
Next
DataTables("备选库").Save()
CurrentTable.Current.Delete()
MessageBox.Show("已成功删除至备选库!", "提示")
Else If CurrentTable.Name = "备选库" Then
MessageBox.Show("备选库数据不能删除 !", "提示", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
End If
End If
Else
MessageBox.Show("人生没有回头路 , 且行且珍惜 ! ", "温馨提示", MessageBoxButtons.Ok, MessageBoxIcon.Warning)
End If
End If
加好友 
发短信
Post By：2015/4/21 10:49:00 [只看该作者]
