VB.NETで縮小変換しないでとエラー

VisualStudio2019(VB),シーオーリポーツ for .NET Ver.3です。
シーオーリポーツ for .NET Ver.2からVer3へバージョンアップした際に
以下のようなエラーが表示されました。

VB.NET
1  Dim detailList As CnListField
2Dim current1 As Integer = 0 'カウンター
3With Me.FlexGrid1
4For i As Integer = 1 To .Rows.Count - 1
5  detailList.ListText(1, current1, CInt(.GetData(i, "かがみ金額")).ToString("#,##0"))
6   　　　　　　　　　　　  :
7                 その他処理
8Next

エラー BC30519 縮小変換しないで呼び出される、アクセス可能な 'ListText' がないため、オーバーロードの解決に失敗しました:
'Public Overloads Sub ListText(col As Short, row As Short, text As String)': パラメーター 'col' と一致する引数は 'Integer' から 'Short' へ引数照合します。
'Public Overloads Sub ListText(col As Short, row As Short, text As String)': パラメーター 'row' と一致する引数は 'Integer' から 'Short' へ引数照合します。.....
と表示されます。

詳しい人に聞いたところ、Integer(1の部分)をShortに変換しないとダメでしょうと言われたので、

detailList.ListText(DirectCast(1, Short), current1, CInt(.GetData(i, "かがみ金額")).ToString("#,##0"))
では、1の部分が"IntegerをShortに変換できません。エラーが表示されました。

どうすればよろしいのでしょうか。何か解決策があればよろしくお願いします。

KOZ6.0

2020/12/11 05:48

current1 も Short にしてみては？

退会済みユーザー

2020/12/11 05:58 編集

第 1 引数の 1 を以下の記事の「データ型を明示するためのサフィックスの一覧」を見て型を明示的に指定しては？数値のデータ型を明示的に指定するには？ https://www.atmarkit.co.jp/ait/articles/0405/07/news065.html 第２引数の current1 が Integer 型なので、そこでまた同じエラーになるような気がしますが。

manabunbun

2020/12/11 07:21

ご回答ありがとうございました。 Dim current1 As Short = 0 'カウンター detailList.ListText(1S, current1, CInt(.GetData(i, "かがみ金額")).ToString("#,##0")) 数字は、サフィックスのS,変数はShortに変更したらうまくいきました。半日以上悩んでいましたが、解決してほっとしています。ありがとうございました。

退会済みユーザー

2020/12/11 08:59

解決したようですので、お手数ですが、解決した方法を回答欄に書いてそれにマークを付けてこのスレッドはクローズ願います。