タイトル : Re^2: 並びが変わってしまう 投稿日 : 2006/10/13(Fri) 09:47 投稿者 : WON
るしぇさん、ありがとうございます。 参考に試してみました。 1.ByVal をByRefにしようとしましたがエラーになってしまいます。 レポートのDataViewを受け取る部分です。 Public Property Dv() As DataView Get Return mDv End Get Set(ByVal value As DataView) mDv = value End Set End Property 2.呼び出し側のFormでvw.Cloneはでませんでした。 rpt.Dv = vw 3.DataViewの取得方法 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim vw As New System.Data.DataView '指定した SQL コマンドを実行 vw = gv.GetDv(fSQL(), "SQL") rpt.Dv = vw rpt.DataSource = vw rpt.Run() Viewer1.Document = rpt.Document ***************************************************************** DataViewを取得するクラスです。 Public Class AGetDv 'Inherits System.ComponentModel.Component Public Function GetDv(ByVal pSQL As String, ByVal pCmdType As String) As DataView Dim MyCn As New SqlConnection Dim MyCmd As New SqlCommand Dim MyDA As New SqlDataAdapter Dim MyDS As DataSet = New DataSet Dim strConnection As String = "Persist Security Info=True;Integrated Security=false;User ID=anq;Password=nq;Initial Catalog=AOYDB;Data Source=SV01 " With MyCmd Select Case pCmdType Case "SQL" .CommandType = CommandType.Text Case "SP" .CommandType = CommandType.StoredProcedure Case Else .CommandType = CommandType.Text End Select '********* .CommandText = pSQL .Connection = MyCn End With '************************************************************** Try MyCn.ConnectionString = strConnection MyCn.Open() MyDA.SelectCommand = MyCmd MyDA.Fill(MyDS) MyCn.Close() Return MyDS.Tables(0).DefaultView Catch ex As Exception If (MyCn.State = ConnectionState.Open) Then MyCn.Close() End If End Try Return Nothing End Function End Class ***************************************************************** 最後にFilter 処理用の別のインスタンス vw2 を作るとありましたが どう作成するのか、ご教授頂けないでしょうか? 宜しくお願いします。 |