- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [讨论]代码问题~~ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=67255)
-- 发布时间：2015/4/21 10:49:00
-- [讨论]代码问题~~
代码如下：我的意思很简单，只有当用户名为【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
-- 发布时间：2015/4/21 10:51:00
--
If _username = "002招聘总监" or _username ="003招聘经理" Then
-- 发布时间：2015/4/21 10:54:00
-- 提示，对于造型说明无效的字符值
又弹出提示了.........对于造型说明无效的字符值
-- 发布时间：2015/4/21 10:55:00
--
具体提示是什么,截图我看看
-- 发布时间：2015/4/21 10:58:00
-- 如下
我发现不光是这个，点击保存的时候也会弹出这个框框
-- 发布时间：2015/4/21 11:00:00
-- 0.0
此主题相关图片如下：11.jpg
-- 发布时间：2015/4/21 11:02:00
--
建议您用这个方法：
http://www.foxtable.com/help/topics/1485.htm
先找出是哪一行出错，然后分析原因，搞不定，可以在论坛发帖，贴出代码，并告诉我们运行到哪一行出错，以及错误提示。
或者上个例子
-- 发布时间：2015/4/21 11:02:00
-- 应该是我保存的代码问题吧，我在检查检查
应该是我保存的代码问题吧，我在检查检查
-- 发布时间：2015/4/21 11:08:00
--
他这个没有提示哪里出错了啊，我把删除按钮里的保存代码删除就不提示了，但是我的整个系统的保存的按钮也是这个提示，代码如下：
For Each dt As DataTable In DataTables
dt.Save()
Next