看看这段代码的问题在在哪里?
Dim dt As New Data.DataTable
Dim oda As New Oracle.DataAccess.Client.OracleDataAdapter
Dim Oconn As New Oracle.DataAccess.Client.OracleConnection
Dim oda1 As New Oracle.DataAccess.Client.OracleDataAdapter
Dim ds As New Data.DataSet
Dim ds1 As New Data.DataSet
Dim strConn As String
Dim strSql1 As String
Dim i As Int16
strSql = "select * from ctxsys.dr$preference "
strSql1 = "select * from ctxsys.dr$preference"
strConn = GetConnstring()-------连接字符串
Oconn.ConnectionString = strConn
Oconn.Open()
oda = New Oracle.DataAccess.Client.OracleDataAdapter(strSql, Oconn)
oda.Fill(ds, "test")
oda1 = New Oracle.DataAccess.Client.OracleDataAdapter(strSql1, Oconn)
oda1.Fill(ds1, "test1")
i = ds.Tables.Count
dt = ds1.Tables("test1")
ds.Tables.Add(dt)--------------错误出现在这里
i = ds.Tables.Count
getDataset = ds