|
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
|