[OSのVer]：WindowsXP　　　　[VBのVer]：VB.NET　　
ステップ実行で試したのですが、
if low.Regth = 1 then
のところで0を返しているので、Load時のMe.m_TestDt = New DataTableの
.Columns.Add(New DataColumn("商品コード", GetType(String)))
                .Columns("商品コード").DefaultValue = ""
のところを
.Columns.Add(New DataColumn("商品コード", GetType(Long)))
                .Columns("商品コード").DefaultValue = 0
にしたらちゃんと表示できるようになりました。
しかし、なぜそうなるのかはいまいちわかりません。
どうして？？

お世話になります。

>if low.Regth = 1 then
これは、Load時のコードには無いので、
多分、
SetSyohinMasterの中の
'DB（m_MasterDt）に商品コードが存在するかどうかのチェック
Dim rows() As DataRow = Me.m_MasterDt.Select("商品コード=" + syohin)
Dim shohinname As String
If rows.Length = 1 Then
↑これの事を言っていますか？

それとも、同じメソッド内の
Dim rows() As DataRow = Me.m_TestDt.Select("商品コード=" + syohin)
If rows.Length = 1 Then
↑の事を言っていますか？
どちらにしても、表示結果を変えることとは関係ないような(^_^;

> にしたらちゃんと表示できるようになりました。
> しかし、なぜそうなるのかはいまいちわかりません。
> どうして？？
DataColumnの型と規定値を変えたからでしょう。
↓下記を参照してください。
hhttp://www.microsoft.com/japan/msdn/library/default.asp?
url=/japan/msdn/library/ja/cpref/html/frlrfsystemdatadatacolumnclassdefaultvaluetopic.asp

> ステップ実行で試したのですが、
> if low.Regth = 1 then
> のところで0を返しているので、Load時のMe.m_TestDt = New DataTableの
> .Columns.Add(New DataColumn("商品コード", GetType(String)))
>                 .Columns("商品コード").DefaultValue = ""
> のところを
> .Columns.Add(New DataColumn("商品コード", GetType(Long)))
>                 .Columns("商品コード").DefaultValue = 0
> にしたらちゃんと表示できるようになりました。
> しかし、なぜそうなるのかはいまいちわかりません。
> どうして？？

[OSのVer]：Windows　　　　[VBのVer]：VB.NET　　

> それとも、同じメソッド内の
> Dim rows() As DataRow = Me.m_TestDt.Select("商品コード=" + syohin)
> If rows.Length = 1 Then
> ↑の事を言っていますか？
はい上のところです。
まあ、とりあえず今のところは動いているのでよしとします。
ありがとうございました。