mo+vb开发 doc(6)

Set recset = Map1.Layers(0).Records For Each f In recset.Fields List1.AddItem f.Name Next f End Sub

List的ListIndex属性设置或返回控件中当前选中项目的索引。

图8—1 选中字段统计