|
2008/08/11(Mon) 17:58:46 編集(投稿者)
■No23235 (T.Hayashi さん) に返信
> VBの開発中、下記の不思議な現象と遭いましたので、その解決策を何方から教えていただきませんか。
試してみましたが、当方では再現しませんでした。
現象を再現可能なコードを提示する事はできますか?
' ソース ファイル名
' 「C:\sample.vb」
'
' コンパイル コマンドライン
' 「C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe /r:System.DLL,System.Data.DLL,System.XML.DLL /out:C:\sample.exe C:\sample.vb」
'
Imports System
Imports System.Data
Module Test
Sub Main()
Dim ds As New DataSet()
Dim T1 As DataTable = ds.Tables.Add("Tbl")
T1.Columns.Add("SEQ_NO", GetType(Short))
T1.Columns.Add("COURSE_NO", GetType(Short))
T1.Rows.Add(New Object() {1, 3741})
T1.Rows.Add(New Object() {2, 3742})
T1.Rows.Add(New Object() {3, 3742})
Console.WriteLine("オリジナル")
Dump(T1)
Dim T2 As DataTable = T1.Copy()
Console.WriteLine("コピー先")
Dump(T2)
End Sub
Sub Dump(ByVal tbl As DataTable)
Const fmt As String = "{0,-10}: SEQ_NO={1}, COURSE_NO={2}"
For Each row As DataRow In tbl.Rows
Console.WriteLine(fmt, row.RowState, row(0), row(1))
Next
End Sub
End Module
===== 実行結果 =====
オリジナル
Added : SEQ_NO=1, COURSE_NO=3741
Added : SEQ_NO=2, COURSE_NO=3742
Added : SEQ_NO=3, COURSE_NO=3742
コピー先
Added : SEQ_NO=1, COURSE_NO=3741
Added : SEQ_NO=2, COURSE_NO=3742
Added : SEQ_NO=3, COURSE_NO=3742
|