| タイトル | ： Re^2: 並びが変わってしまう |
| 記事No | ： 4414 |
| 投稿日 | ： 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 を作るとありましたが
どう作成するのか、ご教授頂けないでしょうか？
宜しくお願いします。
|