第一篇 哈哈
Private Sub FillDataSetAndView()
'填充 DataSetAndView
If objSqlConnection.State = ConnectionState.Closed Then objSqlConnection.Open()
objSqlCommand.Connection = objSqlConnection
objSqlCommand.CommandText = " select a.au_lname,a.au_fname,c.title,c.price from authors a inner join titleauthor b on a.au_id= b.au_id inner join titles c on b.title_id=c.title_id"
objSqlCommand.CommandType = CommandType.Text
objSqlDataAdapter.SelectCommand = objSqlCommand
objDataSet = New DataSet()
Dim objDataTable As New DataTable
objSqlDataAdapter.Fill(objDataSet, "author") '向dataset里填充数据
objDataView = New DataView(objDataSet.Tables("author")) '指定dataview 查看"author"表
objDataTable = objDataSet.Tables("author")
Dim objBindingSource A