我想调试系统,如何构造一个函数返回一个datatable.我想自已定义数数据

[blackhero]

我想调试系统,如何构造一个函数返回一个datatable.我想自已定义数数据


Private Function GetexampleData(ByVal oItem As ListItem) As DataTable
Dim dtData As DataTable = Nothing
我应该如何定义
Return dtData
End Function


我引用操作:
Dim dtTable As DataTable = Nothing
dtTable = New BLL.EntityTemplateTableCollection().GetEntityTemplateTableList(Session("User"))
For i = 0 To dtTable.Rows.Count - 1

[pupo]

Private Sub MakeParentTable()
' Create a new DataTable.
Dim myDataTable As DataTable = new DataTable("ParentTable")
' Declare variables for DataColumn and DataRow objects.
Dim myDataColumn As DataColumn
Dim myDataRow As DataRow

' Create new DataColumn, set DataType, ColumnName and add to DataTable.
myDataColumn = New DataColumn()
myDataColumn.DataType = System.Type.GetType("System.Int32")
myDataColumn.ColumnName = "id"
myDataColumn.ReadOnly = True
myDataColumn.Unique = True
' Add the Column to the DataColumnCollection.
myDataTable.Columns.Add(myDataColumn)

' Create second column.
myDataColumn = New DataColumn()
myDataColumn.DataType = System.Type.GetType("System.String")
myDataColumn.ColumnName = "ParentItem"
myDataColumn.AutoIncrement = False
myDataColumn.Caption = "ParentItem"
myDataColumn.ReadOnly = False
myDataColumn.Unique = False
' Add the column to the table.
myDataTable.Columns.Add(myDataColumn)

' Make the ID column the primary key column.
Dim PrimaryKeyColumns(0) As DataColumn
PrimaryKeyColumns(0)= myDataTable.Columns("id")
myDataTable.PrimaryKey = PrimaryKeyColumns

' Instantiate the DataSet variable.
myDataSet = New DataSet()
' Add the new DataTable to the DataSet.
myDataSet.Tables.Add(myDataTable)

' Create three new DataRow objects and add them to the DataTable
Dim i As Integer
For i = 0 to 2
myDataRow = myDataTable.NewRow()
myDataRow("id") = i
myDataRow("ParentItem") = "ParentItem " + i.ToString()
myDataTable.Rows.Add(myDataRow)
Next i
End Sub

[saucer]

Dim dtData As DataTable = Nothing
dtData = new DataTable

dtData.Columns.Add("name1", GetType(String))
dtData.Columns.Add("name2", GetType(String))

for each i as integer = 0 to 10
dim dr as DataRow = dtData.NewRow()
dr("name1") = i.ToString()
dr("name2") = i.ToString()
dtData.Rows.Add(dr)
next

return dtData

Return dtData

[blackhero]

我怎么把调试数据存去呀

name1 name2
AAA BBB
CCC DDD

[saucer]

如果你的测试数据是要变动的话，建议你把你的数据放在一个XML文件里，通过DataSet的ReadXml来读取

[blackhero]

谢谢你