作者:VB.NET开发
项目:System.Web.U
If (Trace.IsEnabled) Then
Dim I As Integer
For I = 0 To DS.Tables("Categories").Rows.Count - 1
Trace.Write("ProductCategory",DS.Tables("Categories").Rows(I)(0).ToString())
Next
End If