- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [讨论]在“统计演示”项目中，这段代码错在哪里啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=628)
-- 发布时间：2008/9/20 18:01:00
-- [讨论]在“统计演示”项目中，这段代码错在哪里啊？
Dim dt As DataTable = DataTables("产品")
For Each dr As DataRow In dt.DataRows
If dr("品名") = "电视机" OrElse dr("品名") = "电饭煲" Then
For Each sr As DataRow In dr.GetChildrows("订单")
output.show(sr("客户"))
Next
End If
Next
我想显示订单表中 品名＝电视机 或 电饭煲 的客户清单。
可是执行出错。
-- 发布时间：2008/9/20 18:56:00
--
或者请检查
1，订单这个表是不是做子表
2，在订单这个表有没有客户这列
试过楼主的代码，在我这里可以通过。
-- 发布时间：2008/9/20 19:00:00
--
此主题相关图片如下：未命名.jpg
-- 发布时间：2008/9/20 19:40:00
--
以下是引用wcs在2008-9-20 18:01:00的发言：
Dim dt As DataTable = DataTables("产品")
For Each dr As DataRow In dt.DataRows
If dr("品名") = "电视机" OrElse dr("品名") = "电饭煲" Then
For Each sr As DataRow In dr.GetChildrows("订单")
output.show(sr("客户"))
Next
End If
Next
我想显示订单表中 品名＝电视机 或 电饭煲 的客户清单。
可是执行出错。
在统计演示项目中执行这段代码是肯定出错的，因为这个项目中既没有产品表，也没有品名列。
执行之前你应改一下代码，或改一下项目中的列名称。
-- 发布时间：2008/9/20 19:45:00
--
明白了，我试的是“统计演示”项目。里面没有产品表，哈哈，OK了。
我很不习惯对象、属性、方法、类型这些东西。还有用“.”串成的一串一串的代码，一层套一层的关系，这与易表太不一样了！
可我还是试着认真理解帮助里的代码规则，修改帮助文件中的代码，看有什么不同的结果，以加强理解。
看了我已掌握了一些东西，好啊！