Dim name As String = e.Form.Controls("ComboBox1").Value If name <> "" Then Dim Result As DialogResult Result = MessageBox.Show("确定把 " & Name & " 删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then DataTables("表名").DeleteFor("姓名 = '" & Name & "'") End If End If