タイトル : Re^3: 'System.InvalidCastException' 投稿日 : 2007/04/24(Tue) 13:01 投稿者 : よねKEN
> Dim r1 As Short : returnValue = Short.TryParse(文字, r1) > If returnValue = True Then 文字to数字 = CShort(文字) : Exit Try 文字to数字 = CShort(文字) のところは 文字to数字 = r1 とすべきでしょう。せっかくShort型のデータへ変換しているのですし。 他のパターンも同様に。 |