以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]请教:要实现以下结果,代码该怎么样优化?【已结】 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84765) |
||||
-- 作者:无我是天机 -- 发布时间:2016/5/10 10:38:00 -- [求助]请教:要实现以下结果,代码该怎么样优化?【已结】 表B,有姓名、分数、等级三列;表A上的窗口1的Table1控件绑定表B(Normal型副本);要实现结果:点击“统计”按钮后,代码根据窗口1分数区间设置下的4个区间文本框设置的值(前提:4个区间不一定全部设置了值,但至少有一个区间会设置值。只能从上到下依次设置;且后一个区间的值是大于前一个区间的值的),对比表B中分数列的分数,动态回写表B中等级列的值。 回写等级列值的逻辑是: 如果该行的分数≥有设置值的最后一个区间的值,那么等级列就写入“ 最后一个区间的值 & 分数以上”; 如果该行的分数≥有设置值的倒数第2个区间的值,那么等级列就写入“ 倒数第2个区间的值 & “-” & 最后一个区间的值 & 分”; ......以此类推 如果该行的分数不在上述情况内,则等级列写入“小于 & 第一个区间的值 & 分” 我的附件项目示例中的代码在4个区间都设置了值的时候没有问题,但是当只设置了1个或者2个或者3个区间的时候,就达不到想要的结果了。请教,代码该怎么样优化? [此贴子已经被作者于2016/5/10 11:38:37编辑过]
|
||||
-- 作者:大红袍 -- 发布时间:2016/5/10 10:40:00 -- 请上传实例 |
||||
-- 作者:无我是天机 -- 发布时间:2016/5/10 10:42:00 --
[此贴子已经被作者于2016/5/10 10:45:57编辑过]
|
||||
-- 作者:无我是天机 -- 发布时间:2016/5/10 10:48:00 -- 已上传。咱们论坛附件好像很难上传上去,搞了几下才搞好。本来还有个截图的,怎么都上传不了? |
||||
-- 作者:大红袍 -- 发布时间:2016/5/10 11:17:00 -- Dim qujian1 As WinForm.TextBox = e.Form.Controls("TextBox1") For Each dr As DataRow In DataTables("表B").Select("") |
||||
-- 作者:无我是天机 -- 发布时间:2016/5/10 11:38:00 -- 完美,感谢感谢! |