主题：求助啊 求助 啊

红袍老师啊

给个代码吧

 

我弄了好久了 也没有进展，下面这段程序是根据实例的产品表  应用到我的程序中也可求出结果。可是我只想在Cpmpute 里加个条件

我加不上去啊 要崩溃了，求助啊   这个代码能在另一个表里根据产品名称列的变化得出订单数量的和，我想加个条件是按月求订单的数量和，

 我在产品表增加了一个列是按日期得出月份。想让这个代码按月统计订单数量。

  这个对我很重要。红袍求解啊。对了还出现了此代码在XP里可以执行，但在WIN7里提示错误。

 

If e.DataCol.Name = "产品" Then     

    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & e.NewValue & "'")
End If

If e.DataCol.Name = "产品" orElse e.Datacol.name = "月份" Then  
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = '" & e.datarow("产品") & "' and 月份 = '" & e.datarow("月份") & "'")
End If

xp、win7的问题，具体报什么错？什么现象？

感谢红袍，让我知道了怎么使用了，现在这段代码在WIN7里正常，等明天在XP的机器里测试下。嘿嘿，烧脑啊！ 我把测试结果告诉你。

红袍：  给你测试了下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

这个跟版本无关，是数据表中没有 【回货总金额】的数据列

再问红袍老师一个问题

我想求行数，（按姓名 按月份）得到行数 

 

 
此主题相关图片如下：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("月份") & "'")

 

求红袍老师赐教

 

 

e.DataRow("长春") = DataTables("车队管理").Compute("count(姓名)", "[姓名] = '" & e.DataRow("姓名") & "' and 月份= '" & e.DataRow("月份") & "' and 目的地 = '长春'")

昂  明白了 难道我的两个电脑里的列名不一样？？、不对啊 我是复制的程序啊   我等看下是不是不一样，谢谢 提醒

啊啊啊     啊啊啊  就少个 AND  啊   这代码啊