Author:水如烟 大概思路如下,现在的方法将值或值数组全部输出为String,比较粗陋。 Public Function GetViewTable(ByVal view As NotesView) As DataTable If view Is Nothing OrElse Not view.comIsValid Then Return New DataTable Dim table As New DataTable(view.Name) Dim index As Integer = 1 For Each column As String In view.ColumnNames If column Is Nothing Then column =