ActiveX Controls Guide (v11)

Columns (ActiveX プロパティ)

適用対象

VAccess

説明

Columns プロパティは Extended Fetch レコード セットに定義されている列数を返します。

備考

Extended Fetch オペレーションに対してSelectedFields プロパティが指定されている場合、この値は SelectedFields プロパティに指定されたフィールド数と同じです。その他の場合は、データ ファイルのレコードに対して定義された合計数と同じです(「Fields プロパティ」を参照)。

このプロパティは設計時には使用できません。実行時は読み取り専用です。このプロパティには、Extended オペレーションの Init メソッドが実行時に呼び出された後にのみ有効なデータが入ります。VAccess コントロールの Extended オペレーション機能を有効にするには、ExtendedOps プロパティを True に設定する必要があります。

'この例では、リスト ボックスを、 
'1 つの Extended オペレーション バッファーのレコードで埋めます 
Dim line As String 
Dim colcount, rowcount As Integer 
Orders.GetFirst 
Orders.ExtendedOps = True 
Orders.Init 
Orders.GetNextExtended 
For rowcount = 1 To Orders.Rows 
  Orders.Row = rowcount 
  line = "" 
  For colcount = 1 To Orders.Columns 
    'FieldValue は文字列と予想されるバリアントを返す 
    '文字列であることを確認する 
    If Not VarType(Orders.FieldValue(colcount)) = _ 
vbError Then 
      line = line + CStr(Orders.FieldValue(colcount)) 
    End If 
  Next colcount 
  ListBox.Add line 
Next rowcount 

関連項目

影響元:ExtendedOps、SelectedFields


ColumnName (ActiveX プロパティ)

ColumnWidth(ActiveX プロパティ)