包含vb.netdr转dt的词条

vb.net dataview 的用法

定制数据视图

DataView类用来表示定制的DataTable的视图。DataTable和DataView的关系是遵循著名的设计模式--文档/视图模式，其中DataTable是文档，而Dataview是视图。

在任何时候，你都可以有多个基于相同数据的不同的视图。更重要的是，你可以对每一个具有自己一套属性、方法、事件的视图作为独立的对象进行处理。这也代表了相对ADO一个巨大的飞跃。

创建DataView

public DataView();

public DataView(DataTable);

DataView只有同已经存在的、很可能是非空的DataTable对象连接后才可用。通常，这个连接在构造时就指定了。

DataView dv;

dv = new DataView(theDataSet.Tables["Employees"]);

但是，你也可以先创建一个新的视图，然后再用Table属性同表相关联。

DataView dv = new DataView();

dv.Table = theDataSet.Tables["Employees"];

DataView构造函数使你由DataTable中得到一个DataView对象。如果需要，反之亦可。事实上，DataTable对象的DefaultView属性返回一个该表的DataView对象。

DataView dv = dt.DefaultView;

一旦你有了DataView对象， 你可以利用它的属性来建立你希望用户见到的数据行集。一般，你可以使用下列属性：

RowFilter

Sort

前者可以定制视图中可见数据应匹配的规则。而后者通过表达式来进行排序。当然你可以使用这两者的任意组合。

设置过滤 RowFilter是一个可读写的属性，用来读取和设置表过滤的表达式。

public virtual string RowFilter {get; set;}

你可以用列名，逻辑和数字运算符和常量的任意合法组合组成表达式。以下是一些例子：

dv.RowFilter = "Country = 'USA'";

dv.RowFilter = "EmployeeID 5 AND Birthdate #1/31/82#"

dv.RowFilter = "Description LIKE '*product*'"

让我们来看一下过滤器的基本规则和运算符。

过滤字符串是表达式的逻辑连接。可以用AND，OR，NOT来连接成一个较短的表达式,也可以使用圆括号来组成子句，指定优先的运算。

通常包含列名的子句同字母、数字、日期或另一个列名进行比较。这里，可以使用关系运算符和算术运算符，如=, , , +, *, % (取模)等等。

如果要选取的行并不能方便地通过算术或逻辑运算符表达，你可以使用IN操作符。以下代码显示如何选取一个随机行：

dv.RowFilter = "employeeID IN (2,4,5)"

你也可以使用通配符*和%，它们同LIKE运算符一起使用时显得更有用。它们都表示任意数量的字符，可以相互替代使用。

请注意，如果在LIKE子句中已经有了*或%字符，你必须用方括号将其括起，以免歧义。如果很不幸，字符串中方括号本身也存在了，那么它也必须用将本身括起。这样，匹配语句会如下所示：

dv.RowFilter = "Description LIKE '[[]*[]]product[[]*[]]"

通配符只允许在过滤字符串的开头或结尾处使用，而不能在字符串中间出现。例如，下列语句会产生运行时错误：

dv.RowFilter = "Description LIKE 'prod*ct"

字符串必须以单引号括起，而日期型必须以#符号括起。字符型值可以使用小数点和科学计数法。

RowFilter也支持聚合函数，如SUM, COUNT, MIN,MAX, and AVG。如果表中没有数据行，那么函数将返回NULL。

在介绍RowFilter表达式的最后，让我们讨论三个很便利的函数：Len，IIF和Substring。

正如其名，Len()返回特定表达式的长度。该表达式可以是一个列名，也可以是其他合法的表达式。

Substring()返回指定的表达式自特定位置开始，特定长度的字符子串。

我最喜欢用的是IIF()，它按照逻辑表达式的值有一到两个值。IIF是IF-THEN-ELSE语句的紧凑表达。语法如下：

IIF(expression, if_true, if_false)

通 过该函数，可以建立非常复杂的过滤字符串。例如，假定你从SQL Server的Northwind数据库中取得Employees表，下列表达式可以选出那些employeeID小于6且lastname为偶数个字符 和employeeID大于6且lastname为奇数个字符的员工。

IIF(employeeID6, Len(lastname) %2 =0, Len(lastname) %2 0)

预排视图

在上面的举例中，datagrid必须负责预排视图中的数据行，以便刷新用户界面。这个自动机制是.NET

数据绑定的产物。Datagrid是通过DataSource属性来获取数据的数据绑定控件。DataView是一个可数据绑定的类，可构建DataSource属性的内容。

如果你想使用datagrid之外的另一个控件，应该怎么办呢？又如果你不想使用自动数据绑定呢？应该怎样预排视图中所选的数据行呢？

DataView的Table属性指向相应的数据表，但DataTable并不保存过滤信息。所以，预排表中的数据注定是不可行的。虽然DataTable和DataView是紧密相联的，但它们各自保持独立，并执行独立的功能。

以下Visual Basic .NET代码段显示了如何遍历视图中所有的数据行，并加入到listbox中。

Dim dv As New DataView()

dv = ds.Tables("Employees").DefaultView

dv.RowFilter = "employeeid 5"

ListBox1.Items.Clear()

Dim buf As String

Dim dr As DataRowView

For Each dr In dv

buf = ""

buf = dr("lastname").ToString() ", " dr("firstName").ToString()

ListBox1.Items.Add(buf)

Next

正如前面说提到的，DataView是可枚举的类，因此你可以安全的将它传给For..Each语句。Count属性存储了视图中数据行数，以便在For..Next循环中使用。

要访问视图中某一行，可以使用DataRowView类。DataRowView可表示DataRow的视图，就像DataView表达DataTable定制的视图一样。

总的来说，DataRow最多有四种状态：default，original，current和proposed。这些状态由DataRowVersion枚举类型设置，由RowVersion属性表达。

DataRow的视图只能是其中某一种状态。

数据行的默认(default)版本只有当其列在构造时设定了默认值时才有。而初始(original)版本是指在最后一次调用表的AcceptChanges后，从数剧源中得到数据行或快照。当前(Current)版本是指当前的数据行，包括所有当时发生的更新。Proposed状态只存在于调用BeginEdit和EndEdit的编辑过程中。

可以通过访问DataRow相同的语法访问DataRowView。这里最重要的属性叫Item。

排序和其他便捷的特性

DataView支持Sort属性，可以用来对视图中的内容排序。Sort由用逗号分隔的列名表达式进行排序。通过在任何列名后加ASC或者DESC限定词，可以使得字段按照上升或者下降的顺序排列。如果没有方向限定词，默认顺序为ASC。

DataView是内存中的对象，所以排序在本地进行，无需调用数据库服务器。

RowStateFilter是DataView另一有趣的属性。它可以用任何预定义的标准来过滤DataTable中的内容。下表中是DataViewRowState枚举类型的所有取值：

CurrentRows包括所有未更新的、新的和修改的数据行Deleted所有自上次调用AcceptChanges后删除的数据行ModifiedCurrent所有自上次调用AcceptChanges后修改过的数据行ModifiedOriginal所有自上次调用AcceptChanges后original版本的数据行New所有自上次调用AcceptChanges后新添加的行OriginalRows返回初始数据行，包含unchanged和deleted 的Unchanged所有未更新的数据行

如果要操作非连接的数据，所有更新都在对DataTable调用AcceptChanges后生效。对单一行的更新在调用DataRow的AcceptChanges后生效。类似的，这些更新可以通过调用DataTable或DataRow对象的RejectChanges来取消。

DataView对象还有一些属性，如AllowEdit，AllowDelete和AllowNew，用来得到或设定是否允许更新的值。它们的默认值设为True，允许任何种类的更新。如果在标志设为False时，你想要完成相应的更新操作，会有一个运行时错误发生。

DataViewManager类

DataTable对象的DefaultView属性用来返回一个DataView对象，作为数据表中内容的默认视图。它按照自然顺序读取数据并显示表中所有的行，而不使用任何过滤。

theMasterGrid.DataSource = m_ds.Tables("Employees").DefaultView

如果需要数据特定的视图，你可以进行排序并/或对DefaultView对象直接进行过滤。

m_ds.Tables("Employees").DefaultView.Sort = "lastname"

theMasterGrid.DataSource = m_ds.Tables("Employees").DefaultView

DataViewManager类是用来存储DataSet中所有表的视图设置。

可以通过传递一个合法的非空的DataSet给类的构造函数来创建DataViewManager

Dim dvm As DataViewManager

dvm = New DataViewManager(m_ds)

也可以通过DataSet对象的DefaultViewManager属性直接得到：

Dim dvm As DataViewManager = m_ds.DefaultViewManager

重要的是DataViewManager类是同一个DataSet相关联的。下面是另一种可行的方法：

Dim dvm As New DataViewManager()

dvm.DataSet = m_ds

DataViewManager最重要的属性是DataViewSettings，一个DataViewSetting对象的集合。

Dim dvs As DataViewSetting

dvs = dvm.DataViewSettings("Employees")

dvs.Sort = "lastname"

DataViewSetting对象包含了表视图的参数信息。当将数据绑定到对数据敏感的控件时，使用DataViewManager而不是DataSet或DataTable可以保留你的视图设置（过滤和排序字段）

theMasterGrid.DataSource = dvm

theMasterGrid.DataMember = "Employees"

在这里，视图按照DataViewSetting中对Employees表指定的自动进行排序和过滤。换而言之，DataViewSetting类是对特定表的视图的一种缓存。

相关问答

Q1: vb.net 的 Excel 操作问题

不需要编程实现vb.netdr转dt，Excel就有数据导入功能，导入vb.netdr转dt的数据作为“表”进行分析、筛选、排序等操作。只要数据源没有变，在Excel中只需要刷新即可。如果vb.netdr转dt你有很多表，刷新起来烦，写个VBA宏就是vb.netdr转dt了。

Q2: 使用VB.NET的五个技巧之处理数据行

处理数据行（DataRow）

Windows窗体中的数据绑定列表框和组合框很节省时间 典型的代码如下（假定已经建立了SqlDataAdapter或者其它部件获取数据）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在这种情况下 代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段 它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段 对于customer来说是CustomerID 一旦用户选择了列表框中的一行 很容易使用列表框的SelectedValue属性获得键字段

MsgBox（ListBox SelectedValue）

但是有可能需要一个与被选择项相关的整个数据行对象的引用 例如 如果被选择的行需要被删除 就不知道键了 你需要一个数据行的引用以使用Delete方法

典型的Visual Basic开发者通常这样想 我已经得到了该行的键了 我将编写一些逻辑来查找使用该键的行 这样可以实现 但是有更好的实现方法 可以使用一行代码获取与列表框中选项关联的数据行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常该逻辑不会凭直觉出现 即使对经验丰富的开发者 为了解释这是怎样实现的 我把上面的一行拆成几行 下面的代码与上面代码的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView类是数据行的包装 它被多个Windows窗体控件使用 它使得显示与控件中的数据行相关的数据更加容易 当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了） 列表框的SelectedItem属性保存了一个DataRowView对象

这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象 这就是上面代码中的第二行实现的 接着DataRowView暴露一个Row属性 它指向被包装的数据行 上面的代码声明了一个数据行并设置了Row属性

转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用 但是在Visual Basic NET中这是经常的 有了上面的例子后 大多数有经验的开发者迅速跟上了这种技术

数据行的引用（dr）可用于用任何方式维护行 访问数据行中的任何特定字段是可行的 行中的数据可以被改变 能使数据行的Delete方法把该行标识为删除 或者从数据表的行集合中删除该行 下面的代码标识删除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974

Q3: 利用VB.NET实现导出DataTable数据到excel中，各位大侠帮帮忙，最好有源码，谢谢，江湖救急

刚好写了个Helper类，你试验一下DataTable2Exce(这个方法代码如下：

Imports System.IO

Imports System.Data

Imports System.Data.OleDb

Public MustInherit Class ExcelHelper

Private Shared Function buildConnStr(excelFilePath As String) As String

Dim excelFileInfo As New System.IO.FileInfo(excelFilePath)

Dim constr As String

If excelFileInfo.Extension = ".xlsx" Then

constr = String.Format("Provider=Microsoft.ACE.OLEDB.12.0;Data Source={0};Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'", excelFilePath)

Else

constr = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'", excelFilePath)

End If

Return constr

End Function

'将datatable导入到excel

Public Shared Function DataTable2Excel(dt As DataTable, excelFilePath As String) As Boolean

If File.Exists(excelFilePath) Then

Throw New Exception("该文件已经存在！")

End If

If dt.TableName.Trim.Length = 0 Or dt.TableName.ToLower = "table" Then

dt.TableName = "Sheet1"

End If

Dim colCount As Integer = dt.Columns.Count

Dim pa(colCount - 1) As OleDb.OleDbParameter

Dim tableStructStr As String = "Create Table " dt.TableName "("

Dim connString As String = buildConnStr(excelFilePath)

Dim objconn As New OleDbConnection(connString)

Dim objcmd As New OleDbCommand

objcmd.Connection = objconn

Dim dataTypeList As New ArrayList

dataTypeList.Add("System.Decimal")

dataTypeList.Add("System.Double")

dataTypeList.Add("System.Int16")

dataTypeList.Add("System.Int32")

dataTypeList.Add("System.Int64")

dataTypeList.Add("System.Single")

Dim i As Integer = 0

For Each col As DataColumn In dt.Columns

If dataTypeList.IndexOf(col.GetType.ToString) 0 Then

pa(i) = New OleDbParameter("@" col.ColumnName, OleDbType.Double)

objcmd.Parameters.Add(pa(i))

If i + 1 = colCount Then

tableStructStr += col.ColumnName + " double)"

Else

tableStructStr += col.ColumnName + " double,"

End If

Else

pa(i) = New OleDbParameter("@" col.ColumnName, OleDbType.VarChar)

objcmd.Parameters.Add(pa(i))

If i + 1 = colCount Then

tableStructStr += col.ColumnName + " VarChar)"

Else

tableStructStr += col.ColumnName + " VarChar,"

End If

End If

i += 1

Next

Try

objcmd.CommandText = tableStructStr

If objconn.State = ConnectionState.Closed Then objconn.Open()

objcmd.ExecuteNonQuery()

Catch ex As Exception

Throw ex

End Try

Dim InsertSql_1 As String = "Insert into " + dt.TableName + " ("

Dim InsertSql_2 As String = " Values ("

Dim InsertSql As String = ""

For colID As Integer = 0 To colCount - 1 Step 1

If colID + 1 = colCount Then

InsertSql_1 += dt.Columns(colID).ColumnName ")"

InsertSql_2 += "@" + dt.Columns(colID).ColumnName + ")"

Else

InsertSql_1 += dt.Columns(colID).ColumnName + ","

InsertSql_2 += "@" + dt.Columns(colID).ColumnName + ","

End If

Next

InsertSql = InsertSql_1 + InsertSql_2

For rowID As Integer = 0 To dt.Rows.Count - 1 Step 1

For colID = 0 To dt.Columns.Count - 1

If pa(colID).DbType = DbType.Double And dt.Rows(rowID)(colID).ToString.Trim = "" Then

pa(colID).Value = 0

Else

pa(colID).Value = dt.Rows(rowID)(colID).ToString.Trim

End If

Next

Try

objcmd.CommandText = InsertSql

objcmd.ExecuteNonQuery()

Catch ex As Exception

Throw ex

End Try

Next

Try

If objconn.State = ConnectionState.Open Then objconn.Close()

Catch exp As Exception

Throw exp

End Try

Return True

End Function

' 获取Excel文件数据表列表Sheets

Public Shared Function GetExcelTables(ExcelFileName As String) As ArrayList

'Dim sheets As New List(Of String)

'conn.Open()

'Dim dt As DataTable = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)

'For Each r In dt.Rows

' sheets.Add(r("TABLE_NAME"))

'Next

'conn.Close()

'Return sheets

Dim dt As DataTable

If Not File.Exists(ExcelFileName) Then

Throw New Exception("指定的Excel文件不存在")

Return Nothing

End If

Dim tableList As New ArrayList

Using conn As OleDbConnection = New OleDbConnection(buildConnStr(ExcelFileName))

Try

conn.Open()

dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"})

Catch ex As Exception

Throw ex

End Try

For i As Integer = 0 To dt.Rows.Count - 1

Dim tableName As String = dt.Rows(i)(2).ToString.Trim.TrimEnd("$")

If tableList.IndexOf(tableName) 0 Then tableList.Add(tableName)

Next

End Using

Return tableList

End Function

'将Excel文件导出至DataTable(第一行作为表头)

Public Shared Function InputFromExcel(ExcelFileName As String, TableName As String) As DataTable

If Not File.Exists(ExcelFileName) Then

Throw New Exception("指定的Excel文件不存在")

End If

Dim tableList As ArrayList = GetExcelTables(ExcelFileName)

If tableList.IndexOf(TableName) 0 Then

TableName = tableList(0).ToString.Trim

End If

Dim dt As New DataTable

Dim conn As New OleDbConnection(buildConnStr(ExcelFileName))

Dim cmd As New OleDbCommand("select * from [" TableName "$]", conn) '调试是否需要$

Dim adapter As New OleDbDataAdapter(cmd)

Try

If conn.State = ConnectionState.Closed Then conn.Open()

adapter.Fill(dt)

Catch ex As Exception

Throw ex

Finally

If conn.State = ConnectionState.Open Then conn.Close()

End Try

Return dt

End Function

'查询excel文件中的一个数据

Public Shared Function ReadOneDataFromExcel(ExcelFileName As String, TableName As String, sql As String) As Object

If Not File.Exists(ExcelFileName) Then

Throw New Exception("指定的Excel文件不存在")

End If

Dim tableList As ArrayList = GetExcelTables(ExcelFileName)

If tableList.IndexOf(TableName) 0 Then

TableName = tableList(0).ToString.Trim

End If

Dim dt As New DataTable

Dim conn As New OleDbConnection(buildConnStr(ExcelFileName))

Dim cmd As New OleDbCommand(sql, conn) '调试是否需要$

Dim ret As Object

Try

If conn.State = ConnectionState.Closed Then conn.Open()

ret = cmd.ExecuteScalar()

Catch ex As Exception

Throw ex

Finally

If conn.State = ConnectionState.Open Then conn.Close()

End Try

Return ret

End Function

'获取Excel文件指定数据表的数据列表columnNames

Public Shared Function GetExcelTableColumns(ExcelFileName As String, TableName As String) As ArrayList

Dim dt As DataTable

If Not File.Exists(ExcelFileName) Then

Throw New Exception("指定的Excel文件不存在")

Return Nothing

End If

Dim ColList As New ArrayList

Using conn As OleDbConnection = New OleDbConnection(buildConnStr(ExcelFileName))

Try

conn.Open()

dt = conn.GetOleDbSchemaTable(OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, TableName, Nothing})

Catch ex As Exception

Throw ex

End Try

For i As Integer = 0 To dt.Rows.Count - 1

Dim ColName = dt.Rows(i)("Column_Name").ToString().Trim()

ColList.Add(ColName)

Next

End Using

Return ColList

End Function

End Class

Q4: vb.net和Access数据库连接：读取数据库中表的一列值的问题。

'vs2010,VB10 牧固图

imports system.data

imports system.data.oledb

dim conn as OleDbConnection=new OleDbConnection

conn.ConnectionString= "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" Db ";Persist Security Info=True"

dim cmd as new sqlcommand

Dim cmd As OleDbCommand = New OleDbCommand

cmd.CommandText = "Select Name from Elements"

dim da as new OleDbDataAdapter

da.SelectCommand =cmd

dim ds as new Dataset

da.fill(ds)

conn.close

dim dt as datatable=ds.tables(0) '从数据库里面读出一列，放入了一个dataTable里面去。

'dt可以绑定到控件。如combobox

combo1.datasource=dt

combo1.displaymember="Name"

关于vb.netdr转dt和的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。