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

Question

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

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

エラー 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に変換できません。エラーが表示されました。

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

Comments

[KOZ6.0]

current1 も Short にしてみては？

[退会済みユーザー]

第 1 引数の 1 を以下の記事の「データ型を明示するためのサフィックスの一覧」を見て型を明示的に指定しては？

数値のデータ型を明示的に指定するには？
https://www.atmarkit.co.jp/ait/articles/0405/07/news065.html

第２引数の current1 が Integer 型なので、そこでまた同じエラーになるような気がしますが。

[manabunbun]

ご回答ありがとうございました。
Dim current1 As Short = 0 'カウンター
detailList.ListText(1S, current1, CInt(.GetData(i, "かがみ金額")).ToString("#,##0"))

数字は、サフィックスのS,変数はShortに変更したらうまくいきました。
半日以上悩んでいましたが、解決してほっとしています。
ありがとうございました。

[退会済みユーザー]

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

Answer 1

Dim current1 As Short = 0 'カウンター
detailList.ListText(1S, current1, CInt(.GetData(i, "かがみ金額")).ToString("#,##0"))

数字は、サフィックスのS,変数はShortに変更したらうまくいきました。

Comments

[退会済みユーザー]

スレッドをクローズするためこの回答にマークをつけて下さい。