- 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=30895)
-- 发布时间：2013/4/6 11:44:00
-- [求助]剩余课次如何提醒
此主题相关图片如下：剩余课次.jpg
剩余课次如何提醒？ 代码如何写？
-- 发布时间：2013/4/6 12:04:00
--
表达式:Isnull([交费课次],0) - Isnull([已扣课次],0)
-- 发布时间：2013/4/6 12:56:00
--
我的意思是，到期提醒 例如：剩余课次 5 次 已下 就有提醒出现。
-- 发布时间：2013/4/6 13:07:00
--
Dim s1 as string
Dim dr as Datarow
Dim drs as list(of Datarow)drs = Datatables("XX").select("剩余课次 < 5")
if drs.count > 0 then
for each dr in drs
s1= s1 & vbcrlf & dr("姓名") & " : " & dr("剩余课次")
Next
s1 ="名单列表 ( " & drs.count & " 人) :" & s1
MessageBox.show(s1)
End if
[此贴子已经被作者于2013-4-6 13:09:08编辑过]
-- 发布时间：2013/4/6 14:40:00
--
此主题相关图片如下：cw.jpg
出现错误
-- 发布时间：2013/4/6 14:47:00
--
Dim s1 as string
drs = Datatables("XX").select("剩余课次 < 5")
if drs.count > 0 then
for each dr in drs
s1= s1 & vbcrlf & dr("姓名") & " : " & dr("剩余课次")
Next
s1 ="名单列表 ( " & drs.count & " 人) :" & s1
MessageBox.show(s1)
End if
-- 发布时间：2013/4/6 15:23:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目461.table |
例子： 剩余课次小于5 出现提醒框 单元格颜色变红
-- 发布时间：2013/4/6 15:30:00
--
请参考 http://www.foxtable.com/help/topics/0656.htm
DrawCell的用法
-- 发布时间：2013/4/6 17:59:00
--
非常感谢楼上的帮助，名单列表 能不能列出学员的姓名？