| 以文本方式查看主题 - 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=103290) |
|
| -- 作者：zgjmost -- 发布时间：2017/7/4 20:26:00 -- [求助]第一句生成了结果，第二句为什么没生成？ If e.DataCol.Name = "保密号" Then e.DataRow("需完成份数") = DataTables("考试表").Compute("Count(试卷号)","[保密号] = \'" & e.NewValue & "\'") End If If e.DataCol.Name = "保密号" Then e.DataRow("已完成份数") = DataTables("考试表").Compute("Count(试卷号)","[保密号] = \'" & e.NewValue & "\' and [是否完成] = \'完成\'") End If
|
|
| -- 作者：有点蓝 -- 发布时间：2017/7/4 20:41:00 -- 代码没有问题。[是否完成]存储的是什么内容？ |
|
| -- 作者：zgjmost -- 发布时间：2017/7/4 20:43:00 -- 是否完成是字符型，如果做完填写 完成 |
|
| -- 作者：有点蓝 -- 发布时间：2017/7/4 20:47:00 -- 数据是否是有空格啊。 |
|
| -- 作者：zgjmost -- 发布时间：2017/7/4 21:10:00 -- http://url.cn/4BJYLbA 这是程序，想导入数据时对保密号和试卷号表相关数据进行一个统计，在表属性中，请有点蓝老师指导
|
|
| -- 作者：有点蓝 -- 发布时间：2017/7/4 21:32:00 -- 没有问题啊，你的考试表是否完成列完全没有数据，当然查询不到啦 另外代码改成这样，效率高很多 Select Case e.DataCol.Name Case "保密号" e.DataRow("需完成份数") = DataTables("考试表").Compute("Count(试卷号)","[保密号] = \'" & e.NewValue & "\'") e.DataRow("已完成份数") = DataTables("考试表").Compute("Count(试卷号)","[保密号] = \'" & e.NewValue & "\' and [是否完成] = \'完成\'") Case "已完成份数","需完成份数" e.DataRow("还需完成份数") = e.DataRow("需完成份数") - e.DataRow("已完成份数") End Select |
|
| -- 作者：zgjmost -- 发布时间：2017/7/4 21:36:00 -- 我的是否完成是用二维码扫描进去的，是一边做一边更正数据的 |
|
| -- 作者：zgjmost -- 发布时间：2017/7/4 21:41:00 -- With DataTables("保密号") Select Case e.DataCol.Name Case "保密号" e.DataRow("需完成份数") = DataTables("考试表").Compute("Count(试卷号)","[保密号] = \'" & e.NewValue & "\'") e.DataRow("已完成份数") = DataTables("考试表").Compute("Count(试卷号)","[保密号] = \'" & e.NewValue & "\' and [是否完成] = \'完成\'") Case "已完成份数","需完成份数" e.DataRow("还需完成份数") = e.DataRow("需完成份数") - e.DataRow("已完成份数") End Select End With 我想把这个移到二维码扫描的地方，怎么改？
|
|
| -- 作者：有点蓝 -- 发布时间：2017/7/4 21:43:00 -- 那你要在"考试表"的datacolchanged写代码去更新"保密号"表的数据 |
|
| -- 作者：zgjmost -- 发布时间：2017/7/4 21:44:00 --
|