tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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 を作るとありましたが
どう作成するのか、ご教授頂けないでしょうか?

宜しくお願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。