- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于内容转移的问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=27104)
-- 发布时间：2012/12/21 22:55:00
-- 关于内容转移的问题
我点击【剩余】按钮的时候，弹出一个窗口，如图1所示。点击【透支】按钮的时候，弹出一个窗口，如图2所示。请教一下高手，我要怎么设置才能实现按钮的功能？
此主题相关图片如下：1.png
此主题相关图片如下：2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:考勤管理 - 副本.table |
[此贴子已经被作者于2012-12-21 22:55:45编辑过]
-- 发布时间：2012/12/22 8:50:00
--
日期列不能赋值为 ""
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:考勤管理.table |
-- 发布时间：2012/12/22 10:26:00
-- 回复：（lin_hailun） 日期列不能赋值为 ""[uplo...
那【剩余】按钮那个呢？它弹出一个错误代码的窗口，说列“今年剩余休假”为只读，所以就不能赋值，因为“今年剩余休假”=“共有假期”—“已休假期”，是运算得出的，有没有办法让它不是只读呢？让它可以赋值。
-- 发布时间：2012/12/22 10:41:00
--
呃，你的今年剩余休假是表达式列，是不允许赋值的。
要么转换成数据列，要么不赋值。
-- 发布时间：2012/12/22 10:50:00
--
如果不用表达式列，用代码呢？是不是就可以赋值了
-- 发布时间：2012/12/22 10:56:00
--
以下是引用ramen在2012-12-22 10:50:00的发言：
如果不用表达式列，用代码呢？是不是就可以赋值了
如果不用表达式列，用代码呢？是不是就可以赋值了
恩恩，是的。
-- 发布时间：2012/12/22 11:10:00
-- 回复：（lin_hailun）以下是引用ramen在2012-12-22 10...
代码这样设置对吗？初学代码不太会写，麻烦修改一下，谢谢！
Select Case e.DataCol.name
Case "共有假期","已休假期"
Dim dr As DataRow = e.DataRow
dr("今年剩余假期") = (dr.IsNull("共有假期"),0) - (dr.IsNull("已休假期"),0)
End Select
[此贴子已经被作者于2012-12-22 11:18:42编辑过]
-- 发布时间：2012/12/22 11:32:00
--
已经不错了
Select Case e.DataCol.name
Case "共有假期","已休假期"
Dim dr As DataRow = e.DataRow
dr("今年剩余假期") =dr("共有假期") - dr("已休假期")
End Select
[此贴子已经被作者于2012-12-22 11:32:30编辑过]
-- 发布时间：2012/12/22 11:47:00
-- 回复：（lin_hailun）已经不错了 Select Case e....
咦？用代码它怎么不会自动运算的？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:考勤管理.table |
-- 发布时间：2012/12/22 11:54:00
--
代码的意思是，你修改了这两列的其中一列 "共有假期","已休假期"，才会自动计算的。
如果要计算，可以选中其中一列，然后按一下菜单里的 重置列