'打开来源数据库,返回 DataView
Function GetDataSource() As DataView
Dim objDT As DataTable = New DataTableDim objDV As New DataView
Dim objDS As DataSet = New DataSet
Dim objDA As OleDbDataAdapter
With ofdImport
.Filter = "XLS文件(*.xls)|*.xls"
.FilterIndex = 1
.Title = "打开数据来源文件"