Foxtable(狐表) → 用户栏目 → 专家坐堂 → 行列动态求和判断的问题


  共有5909人关注过本帖树形打印复制链接

主题：行列动态求和判断的问题
帅哥哟，离线，有人找我吗？
allenyen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1386 威望：0 精华：0 注册：2012/12/30 12:52:00 		行列动态求和判断的问题  发帖心情 Post By：2022/6/8 9:41:00 [只看该作者]

商品编码 商品名称 订单数量 已排产数量 未排产数量 8日 9日 10日 11日 12日 13日 14日
1001 轴承A 500 0 500 50 200 600 　 　 　 　
1002 轴承B 300 0 300 　 　 　 　 　 　 　
现状：这是动态生成的临时表，8-14日的列是根据当前日期动态变更，
目的：想实现在日期列输入数量的时候自动校验未排数量，如在10日输入600的时候8日+9日+10日超出了未排数量就提示超出

请教下大佬如何实现
[此贴子已经被作者于2022/6/8 9:43:31编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111376 积分：566944 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/8 10:05:00 [只看该作者]

datacolchanging事件

if e.datacol.name like "*日" then
dim k as integer = val(e.datacol.name.trim("日"))
dim sum as integer
for i as integer = 1 to k
if e.datatable.datacols.contains(i & "日") then
sum =  sum + e.datarow(i & "日")
end if
next
if sum > e.datarow("未排产数量") then
msgbox("超出")
e.cancel=true
end if
endif
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2022/6/8 10:13:00 [只看该作者]

另一种方式，用颜色

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目413.table


建议：

1、任何人写出能用的好代码，都要经过测试调整，所以提问的时候，最好自己把表设计好发上来，否则别人想帮你解决问题，还要先需要设计表，输入测试数据。
2、问题要更明确，你说的是要提示， 正常提示指的是MessageBox，可你截图用的是颜色标记，蓝版主理解你是要用messagebox，我理解你要颜色。

不明确，没有测试数据，会耽误工程师的时间，影响服务质量，也耽误了为其他人服务。
[此贴子已经被作者于2022/6/8 10:18:07编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
allenyen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：1386 威望：0 精华：0 注册：2012/12/30 12:52:00 		  发帖心情 Post By：2022/6/8 10:18:00 [只看该作者]

Dim dtb As New DataTableBuilder("lsb1")        
    dtb.AddDef("商品编码", Gettype(String), 30)
    dtb.AddDef("商品名称", Gettype(String), 50)
    dtb.AddDef("订单数量", Gettype(Integer))
    dtb.AddDef("已排产数量", Gettype(Integer))
    dtb.AddDef("未排产数量", Gettype(Integer))    
    For Each d As String  In dtw.GetValues("日","","id")
        dtb.AddDef(d, Gettype(Double))
    Next
    dtb.Build()
    Tables(e.form.name & "_Table1").DataSource  = DataTables("lsb1")

DataTableBuilder 生成的临时表好像不能用datacolchanging事件
以上是生成临时表代码
 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111376 积分：566944 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/8 10:28:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2022/6/8 10:31:00 [只看该作者]

如果要颜色标记，可通过代码增加样式：
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询