- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- foxtable系统的撤销按钮对datacolchanged无效，是否正常？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=3321)
-- 发布时间：2009/6/27 18:44:00
-- foxtable系统的撤销按钮对datacolchanged无效，是否正常？
此主题相关图片如下：撤销按钮+.gif
-- 发布时间：2009/6/27 19:33:00
--
正常，撤销针对的手工编辑操作。
-- 发布时间：2009/6/27 19:59:00
--
以下是引用狐狸爸爸在2009-6-27 19:33:00的发言：
正常，撤销针对的手工编辑操作。
正常，撤销针对的手工编辑操作。
呵呵～ 不正常！ 如果是数字就没问题~ 看来是符号的问题，要想法子让符号转换成数字再转换数值型。
if e.dataRow("记功等级").contains("★") then
e.DataRow("奖励") = (e.DataRow("记功等级").split("★").length-1)*50
else
e.DataRow("奖励") =CInt(s) * 50
end if
在datacolchanged里这个代码为何不起作用？
[此贴子已经被作者于2009-6-27 20:01:35编辑过]
-- 发布时间：2009/6/27 20:13:00
--
这样能解决了（系统撤销按钮可以起作用了）， 实例参考yangming版主的
http://www.foxtable.com/dispbbs.asp?boardid=2&Id=3311 四楼文件
If e.DataCol.Name = "记功等级" Then
If e.DataRow.IsNull("记功等级") Then
e.DataRow("奖励") = Nothing
Else
Dim s As String = e.DataRow("记功等级")
If IsNumeric(s) Then
Dim s2 As String = "★"
e.DataRow("记功等级") = s2.PadLeft(s,"★")
e.DataRow("奖励") =CInt(s) * 50
elseif e.dataRow("记功等级").contains("★") then
e.DataRow("奖励") = (e.DataRow("记功等级").split("★").length-1)*50
End If
End If
End If
-- 发布时间：2009/6/27 20:33:00
--
你直接用我的代码就能达到撤消
If e.DataCol.Name = "记功等级" Then
If e.DataRow.IsNull("记功等级") Then
e.DataRow("奖励") = Nothing
Else
Dim s As String = e.DataRow("记功等级")
If IsNumeric(s) Then
Dim s2 As String = "★"
e.DataRow("记功等级") = s2.PadLeft(s,"★")
e.DataRow("奖励") =CInt(s) * 50
End If
End If
End If
[此贴子已经被作者于2009-6-27 20:35:09编辑过]
-- 发布时间：2009/6/27 20:36:00
--
以下是引用yangming在2009-6-27 20:33:00的发言：
你直接用我的代码就能达到撤消
不行把 你试一试看
-- 发布时间：2009/6/27 20:38:00
--
我就是试过了，呵
-- 发布时间：2009/6/27 21:13:00
--
可是一楼的动画就是您原来的文件录制的啊～ ，看奖励列，不会随着撤销而变化···
-- 发布时间：2009/6/27 21:49:00
--
以下是引用mr725在2009-6-27 21:13:00的发言：
可是一楼的动画就是您原来的文件录制的啊～ ，看奖励列，不会随着撤销而变化···
可是一楼的动画就是您原来的文件录制的啊～ ，看奖励列，不会随着撤销而变化···
晕，我以为是第一列的星....