2つのテーブルがデータセット内にある場合、ログオンに失敗します

Question

レポートが2つのテーブルを満たしています。これは、ローカルサーバー上で動作しますが、別のサーバーに発行するときには、次のエラーを与える：

Unable to connect. Login failed.

私は2番目のテーブルを脱いで、最初のテーブルだけを使用すると、レポートは動作します。どうすれば解決できますか？

objDataTable = New Data.DataTable 
objDataTable.TableName = "Table" 
objDataTable.Columns.Add("pes_nom", GetType(String)) 

objRow = objDataTable.NewRow 
objRow("pes_nom") = objProposta.clsPessoa.pesNom  
objDataTable.Rows.Add(objRow) 

objDataSet = New Data.DataSet 

objDataSet.Tables.Add(objDataTable) 

If objProposta.clsDependente.DtDependentes IsNot Nothing Then 
    Dim dtCloned As New Data.DataTable 
    dtCloned = objProposta.clsDependente.DtDependentes.Clone() 
    dtCloned.Columns(3).DataType = System.Type.GetType("System.String") 

    For Each row As Data.DataRow In objProposta.clsDependente.DtDependentes.Rows 
    dtCloned.ImportRow(row) 
    Next 

    dtCloned.TableName = "Dependentes" 
    objDataSet.Tables.Add(dtCloned) 
End If 

Bmgviewer1.PathReport = "RptTermoAdesaoHAP.rpt" 
Bmgviewer1.DataSet = objDataSet 
Bmgviewer1.DataBind() 

Answer 1

解決策は、複数の行で1つのテーブルにすべてのデータを挿入することでした。

私は、次のコードを追加：

If objProposta.clsDependente.DtDependentes IsNot Nothing Then 
      For Each row As Data.DataRow In objProposta.clsDependente.DtDependentes.Rows 

       objRow("dep_nom") = row.Item("dep_nom").ToString() 
       objRow("dep_cpf_cgc") = row.Item("dep_cpf_cgc").ToString() 

       objDataTable.Rows.Add(objRow) 
       objRow = objDataTable.NewRow 
      Next 
     Else 
      objDataTable.Rows.Add(objRow) 
     End If 

をそして、それは働きました。