vb里边怎样用dt

Dim dt As new DataTable

dtColumnsAdd("列1") '添加列

dtColumnsAdd("列2") '添加列

Dim r As DataRow = dtNewRow '添加行

r("列1")=1

r("列2")=1

dtRowsadd(r)

使用DataSet类来完成这项任务。

DataSet对象在传输时，是以XML流的形式而不是以COM形式传输的。DataSet对象可以读取XML数据文件或者数据流，从而将树型结构的XML数据转换成关系型的数据，如表(DataTable)、列(DataColumn)、行(DataRow)等。

在这个实例中，我们将XML文件命名为“xmlfile．xml”，具体内容如下：

<xml version=\"1．0\"standalone=”yes”>

<Detail>

<Person>

<Name>Manish<／Name>

<Age>22<／Age>

<／Person>

<／Detail> \'用VB．NET读写XML文件

C1aSS WriteXML

Shared Sub main()

Dim obj DataSet As New System．Data．DataSet()

Dim strVirtualPath As String=”t．xml”

\'载入XML文件DataSet

objDataSet．ReadXml(”xmlfile．xml”)

\'通过控制器读取XML内容

Console．Write(objDataSet．GetXml)

\'从原XML文件中得到数据

ConSOle．Write(”Enter Name：”)

Dim fname，age As String

fname=ConS01e．ReadLine

\'写入你希望的代码

ConS01e．Write(”Enter Age：”)

age=Console．ReadLine

ConS0le．Write(fname＆age)

Dim v(1)As String

v(0)=fname

V(1)=age

\'增加数据DataSet

objDataSet．Tables(0)．Rows．Add(V)

\'更新XML文件

objDataSet．WriteXml(”xmlfile．xml”)

Console．Write(obj DataSet．GetXml)

End Sub

End C1ass

运行该程序有两种方式，一种是在Microso~VS．NET框架中编译完后运行；另一种则是在仿DOS的Command窗口中运行。在第一种方式中，必须加上System、System．Data、System．xML的引用。具体方法为：先创建一个空的项目，然后加入这个文件名字；在“解决方案资源管理器”中加入引用，此时需要选择相应的．dll文件；注意，xmlfile．xml文件应该放在工程的／bin目录下面。我们可以输出结果也可以用浏览器直接查看改变后的XML文件。在第二种方式中，选择桌面的“程序”一“Microso~Visual Studio．NET”一“VisualStudio．NET工具”一“Visual Studio．NET命令提示”命令，在DOS命令提示框敲入命令：[Page]

vbc／r：system．d11／r：system．data．d11／r：system．xml．d11 xml．vb其中，程序名为xml．vb，这里的3个．dll文件都是必须调用的库文件。应该在存放VB．NET文件的目录中运行上述命令，否则找不到相应的程序，当然设置PATH也可以做到。此外，Xml_vb文件应该和XML文件放在同一目录下面。每次运行此程序都会往文件中写进同样的内容，都是写入<Person／>，运行一次写一行。其实，我们只要稍微修改一下这个程序，就可以往XML中写入我们所需要的数据。

给你一段我曾经写的代码，主要是生成TreeView的节点！有什么不懂的地方你就提！

Public Sub InitializeTreeView(ByVal strvXL As TreeView, ByVal vrsRecordTwo As DataSet)

Dim treBaseNodeOne As TreeNode

Dim treBaseNodeTwo As TreeNode

Dim strDWDM As String

m_rsRecordTwo = g_clsSybaseSelectSC_PD_SBCSB1()

'查找供电局信息

g_clsSybaseSelectRS_ZZJG_ZZJGDMB(m_rsRecordOne)

'添加根节点

Do While m_rsRecordOneRead

strDWDM = m_rsRecordOneGetString(0) '获取单位代码

treBaseNodeOne = New TreeNode

treBaseNodeOneText = m_rsRecordOneGetString(1)Trim() '获取单位名称

treBaseNodeOneName = m_rsRecordOneGetString(1)

treBaseNodeOneTag = ""

strvXLNodesAdd(treBaseNodeOne)

'添加树结构第二层

Dim drsTwo() As DataRow

drsTwo = m_rsRecordTwoTables(0)Select("SSDW='" & strDWDM & "' and SC__XLBM is null")

For Each dr As DataRow In drsTwo

treBaseNodeTwo = New TreeNode

treBaseNodeTwoText = drItem("XLMC")ToStringTrim

treBaseNodeTwoName = drItem("XLMC")

treBaseNodeTwoTag = drItem("XLBM")

treBaseNodeOneNodesAdd(treBaseNodeTwo)

Next

Loop

m_rsRecordOneClose()

End Sub

以上就是关于vb里边怎样用dt全部的内容，包括:vb里边怎样用dt、使用vb.net如何读取XML文件、vb.net从数据库读取信息填充treeview做成层次目录怎么做等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！