定制数据视图
成都创新互联为企业级客户提高一站式互联网+设计服务，主要包括成都做网站、网站制作、重庆App定制开发、重庆小程序开发、宣传片制作、LOGO设计等，帮助客户快速提升营销能力和企业形象，创新互联各部门都有经验丰富的经验，可以确保每一个作品的质量和创作周期，同时每年都有很多新员工加入，为我们带来大量新的创意。
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类是对特定表的视图的一种缓存。
dim a as string = replace(trim(textbox1.text),"TMD","") 'a 是过滤后的字符串，没有"TMD"，
还有：if textbox1.text.indexOf("TMD") -1 then exit sub
就这个之类的
Public Class Form1
Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
If Not IsNumeric(e.KeyChar) Then '判断是否为数字
e.Handled = True ‘如果不是数字，取消操作，不显示字符
End If
End Sub
End Class
这样就好啦
不用这个应该使用重载Form的ProcessCmdKey，假如我们处理的是textBox1如下： Protected Overrides Function ProcessCmdKey(ByRef msg As Message, ByVal keyData As Keys) As Boolean
If Not TextBox1.Focused Then Return False '焦点不在指定文本框上，不处理
If keyData = Keys.A And keyData = Keys.Z Then '是字母，还不知道是否是大小写
If IsKeyLocked(Keys.CapsLock) Then '大写锁定
Return Not CInt(ModifierKeys()) And CInt(Keys.Shift) 0 '如果Shift没锁定（即是大写）要过滤，返回TRUE;
Else
Return CInt(ModifierKeys()) And CInt(Keys.Shift) 0 '如果Shift锁定（即是大写）要过滤，返回TRUE;
End If
ElseIf keyData = Keys.Back Or keyData = Keys.Delete Then '还有允许的其它键
Return False
End If
Return True '剩余的键都过滤掉
End Function