タイトル : Re^4: 'System.InvalidCastException' 投稿日 : 2007/04/24(Tue) 16:50 投稿者 : ひでと
ありがとうございました。 いわれてみればなるほどです。教えていただいた内容を上っ面だけで納得してしまい 考えがい足りませんでした。アドバイスありがとうございます。 > > Dim r1 As Short : returnValue = Short.TryParse(文字, r1) > > If returnValue = True Then 文字to数字 = CShort(文字) : Exit Try > > 文字to数字 = CShort(文字) > のところは > 文字to数字 = r1 > とすべきでしょう。せっかくShort型のデータへ変換しているのですし。 > > 他のパターンも同様に。 |