Để chứng minh mạnh mẽ bộ dữ liệu đánh máy có thể làm việc cùng với các đối tượng dữ liệu chung chung hơn, bây giờ bạn tạo một DataView lọc đối tượng GetPersonTable để nó chỉ chứa hàng phù hợp với ID: Bạn cũng nên trở về Không có gì nếu một bản ghi phù hợp không được tìm thấy: | Who Do You Call 16. To demonstrate how strongly typed datasets can work in conjunction with the more generic Data objects you now create a DataView that filters the GetPersonTable object so that it contains only the row that matches the ID Public Function GetPerson ByVal PersonlD As Integer As Person Dim GetPersonAdapter As New Dim GetPersonTable As New GetPersonTable Dim PersonDataView As DataView ID End Function You can now check the DataView to determine whether there are any matches. If there are more than zero then you know that there is only one because the ID field is unique . Create a new Person class and populate the properties with the corresponding fields from the database. You should also return Nothing if a matching record was not found Public Function GetPerson ByVal PersonlD As Integer As Person Dim GetPersonAdapter As New Dim GetPersonTable As New GetPersonTable Dim PersonDataView As DataView ID With PersonDataView If .Count 0 Then Dim objPerson As New Person With .Item 0 CType .Item ID Integer .Item NameFirst . .Item NameLast . .Item PhoneHome . .Item PhoneCell . .Item Address . CType .Item DateOfBirth Date .Item EmailAddress . .Item Favorites . CType .Item GiftCategories Integer .Item Notes . End With Return objPerson Else Return Nothing End If End With End Function 17. Now that you have the .
