|
VAccess
COMMENT.DDF ファイルからフィールド コメントを VAccess メモリ イメージに読み取ります。
DdfGetFieldComments メソッドの構文は次のような要素で構成されます。
DdfGetFieldComments は、VAccess コントロールのステータスを保持する 2 バイトの整数を返します。この値がゼロの場合、オペレーションは正常に終了しています。
DdfGetFieldComments は VAccess メモリ イメージのフィールド コメント情報を強制的にリフレッシュします。DDF からメモリ イメージを更新すると自動的にこの情報もリフレッシュされるので、この操作が必要になることはまずありません。これは、RefreshLocations が False に設定されていて、DDF 情報が変わらない場合にのみ必要となります。コメント情報はほかの DDF 情報とは共存しません。
ほかの多くの辞書メソッドやプロパティと異なり、DdfGetFieldComments は RefreshLocations をチェックしません。これは DDF からの情報を更新することだけを目的としているので、DDF から直接読み取ることを想定しています。
'フィールドの取得 Dim fields as Variant VAEngine.RefreshLocations = True VAEngine.DdfGetFieldComments = True VAEngine.TableName = tableName fields = VAEngine.FieldList VAEngine.RefreshLocations = False If not IsEmpty(fields) For i = 0 to ubound(fields, 2) 'フィールド名とコメントをリスト ボックスに配置する List.AddItem (fields(1,i) + fields(6, i)) Next i End If
FieldList
|