请教大神，怎么将查询到的表里的一行数据，分别把列名和数值输入另一个DataTable对象的行和列？

[jerrymouse007]

比如说数据库查询结果如下
姓名 语文 数学 英语
张三 80 90 100

想输入另一个新建的DataTable对象，把数据库查询结构的 列名和数值分别作为一行数据添加
想要的结果为
姓名 张三
语文 80
数学 90
英语 100
请问该怎么做呢？谢谢

[xyxcc177109]

Sub 测试程序() Dim dt As New DataTable '查询结果表 dt.Columns.Add("姓名") dt.Columns.Add("语文") dt.Columns.Add("数学") dt.Columns.Add("英语") dt.Rows.Add("张三", 120, 135, 143) Dim dt_New As New DataTable '新建表' dt_New.Columns.Add("信息") Dim str_ As String For i As Integer = 0 To dt.Columns.Count - 1 str_ = dt.Columns(i).ColumnName & " " & dt.Rows(0).Item(i) dt_New.Rows.Add(str_) Next DataGridView1.DataSource = dt_New End Sub

[正怒月神]

网上看书做。ado.net和 datatable，太多了。

[jerrymouse007]

非常感谢大神