Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
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
我想显示订单表中 品名=电视机 或 电饭煲 的客户清单。
可是执行出错。
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
我想显示订单表中 品名=电视机 或 电饭煲 的客户清单。
可是执行出错。
在统计演示项目中执行这段代码是肯定出错的,因为这个项目中既没有产品表,也没有品名列。
执行之前你应改一下代码,或改一下项目中的列名称。