以文本方式查看主题
- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助啊 求助 啊 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74803)
|
-- 作者:zuizuitiantian
-- 发布时间:2015/9/19 14:09:00
-- 求助啊 求助 啊
红袍老师啊
给个代码吧
我弄了好久了 也没有进展,下面这段程序是根据实例的产品表 应用到我的程序中也可求出结果。可是我只想在Cpmpute 里加个条件
我加不上去啊 要崩溃了,求助啊 这个代码能在另一个表里根据产品名称列的变化得出订单数量的和,我想加个条件是按月求订单的数量和,
我在产品表增加了一个列是按日期得出月份。想让这个代码按月统计订单数量。
这个对我很重要。红袍求解啊。对了还出现了此代码在XP里可以执行,但在WIN7里提示错误。
If e.DataCol.Name = "产品" Then
e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & e.NewValue & "\'") End If
|
-- 作者:大红袍
-- 发布时间:2015/9/19 14:48:00
--
If e.DataCol.Name = "产品" orElse e.Datacol.name = "月份" Then e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & e.datarow("产品") & "\' and 月份 = \'" & e.datarow("月份") & "\'") End If
|
-- 作者:大红袍
-- 发布时间:2015/9/19 14:48:00
--
xp、win7的问题,具体报什么错?什么现象?
|
-- 作者:zuizuitiantian
-- 发布时间:2015/9/19 18:08:00
--
感谢红袍,让我知道了怎么使用了,现在这段代码在WIN7里正常,等明天在XP的机器里测试下。嘿嘿,烧脑啊! 我把测试结果告诉你。
|
-- 作者:zuizuitiantian
-- 发布时间:2015/9/20 14:38:00
--
红袍: 给你测试了下XP 和 WIN7 里用同一个代码 WIN7提示错误 XP里 可以的结果
If e.DataCol.Name = "姓名" Then \'发生变化的是产品列. \'则累计订单表中同名产品总的销售量,然后赋值给变动行的数量列 e.DataRow("回货总金额") = DataTables("车队管理").Compute("Sum(回货款金额)","[发车姓名] = \'" & e.NewValue & "\'") End If
提示:.NET Framework 版本:2.0.50727.5485 Foxtable 版本:2014.11.11.1 错误所在事件:表,小车工资表,DataColChanged 详细错误信息: 调用的目标发生了异常。 列“回货总金额”不属于表 小车工资表。
这是怎么啦 版本错了,还是怎么的啦
此主题相关图片如下:qq图片20150920143830.png
此主题相关图片如下:qq截图20150920144205ww.png
此主题相关图片如下:ee.png
[此贴子已经被作者于2015/9/20 14:38:47编辑过]
|
-- 作者:ericsky
-- 发布时间:2015/9/20 14:41:00
--
这个跟版本无关,是数据表中没有 【回货总金额】的数据列
|
-- 作者:zuizuitiantian
-- 发布时间:2015/9/20 14:59:00
--
再问红袍老师一个问题
我想求行数,(按姓名 按月份)得到行数
此主题相关图片如下:33322222.png
可是和这个例子好像相反
此主题相关图片如下:34343.png
这个代码我套用帮助,可是出错 ,似乎逻辑不对,
Dim dr As
DataRow = e.DataRow Dim dt As
DataTable =DataTables("学生成绩") If e.DataCol.Name = "科目"
And dr.IsNull("科目") = False
Then dr("分布_60分以下") = dt.Compute("Count(姓名)", dr("科目") & " < 60")
为了用昨天问你的代码,
我加了一个列【发车次数】每个目的地都是一次,可是这样还少个条件,“长春”=长春 这又加不上了。
e.DataRow("长春") = DataTables("车队管理").Compute("Sum(发车次数)", "[姓名] = \'" & e.DataRow("姓名") & "\' and 月份= \'" & e.DataRow("月份") & "\'")
求红袍老师赐教
[此贴子已经被作者于2015/9/20 15:02:14编辑过]
|
-- 作者:大红袍
-- 发布时间:2015/9/20 15:03:00
--
e.DataRow("长春") = DataTables("车队管理").Compute("count(姓名)", "[姓名] = \'" & e.DataRow("姓名") & "\' and 月份= \'" & e.DataRow("月份") & "\' and 目的地 = \'长春\'")
|
-- 作者:zuizuitiantian
-- 发布时间:2015/9/20 15:06:00
--
昂 明白了 难道我的两个电脑里的列名不一样??、不对啊 我是复制的程序啊 我等看下是不是不一样,谢谢 提醒
|
-- 作者:zuizuitiantian
-- 发布时间:2015/9/20 15:09:00
--
啊啊啊 啊啊啊 就少个 AND 啊 这代码啊
|