VB6中的for each语法在VB.NET里一直提示该类型不是集合类型？

[swatofa]

Private Sub outputmeasures(ByVal aLine As Line)
Dim pCount As Integer
Dim itemCount As Integer
Dim partLine As New Line
Dim i As Integer
Dim j As Integer

For Each partLine In aLine.Parts ------aLine.Parts不是集合类型！
pCount = pCount + 1
For i = 0 To partLine.Parts.Count - 1 Step 1
itemCount = itemCount + 1
With partLine.Item(i)
.Measure = 10 * i
ListBox1.Items.Add("点 " & itemCount & vbTab & "X= " & Format(.X, "0.00") & vbTab & "Y= " & Format(.Y, "0.00") & vbTab & "M= " & .Measure)
End With
Next i
Next partLine
End Sub


错误：表达式的类型为“ESRI.MapObjects2.Core.Parts”，该类型不是集合类型。
aLine.Parts 该类型不是集合类型！

[swatofa]

按楼上的提法修改了一下，不出现不适集合类型的错误了。但是又出现了一个新错误。

Dim intI As Integer
For intI = 0 To recs.fields.count - 1
ListBox1.Items.Add(recs.fields(intI).name)
Next

未将对象引用设置到对象的实例。
排错提示：
使用new关键字创建对象实例。
在调用方法前通过检查确定对象是否为空。
我new了下不行，再加个aField=recs.fields.item(i)时发现aField为nothing，没有找到对象。

[wjq]

你的Parts返回什么类型？
.net里for each需要迭代器，该集合需要实现IEnumerable 或 IEnumerable<T> 结构才能用foreach语法～

[yanlongwuhui]

VB.NET中没有LINE，是自定义的类吧

[xysyzj]

aLine.Parts改为aline试试，因为Parts不能做集合类

[swatofa]

1楼理解得很对，可惜高人却隐蔽山林去了，呵呵。
line是我用组件开发做定义的类，是一条直线。
Private Sub outputmeasures(ByVal aLine As Line)
Dim pCount As Integer
Dim itemCount As Integer
Dim partLine As New Line
Dim i As Integer
Dim j As Integer

For Each partLine In aLine.Parts ------aLine.Parts不是集合类型！
pCount = pCount + 1
For i = 0 To partLine.Parts.Count - 1 Step 1
itemCount = itemCount + 1
With partLine.Item(i)
.Measure = 10 * i
ListBox1.Items.Add("点 " & itemCount & vbTab & "X= " & Format(.X, "0.00") & vbTab & "Y= " & Format(.Y, "0.00") & vbTab & "M= " & .Measure)
End With
Next i
Next partLine
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim P1 As Point
Dim Pts As Points

Line1 = New Line
Pts = New Points
P1 = AxMap1.ToMapPoint(100, 100)
Pts.Add(P1)
P1 = AxMap1.ToMapPoint(500, 400)
Pts.Add(P1)
P1 = AxMap1.ToMapPoint(100, 300)
Pts.Add(P1)
Line1.Parts.Add(Pts)
Pts = Line1.Parts.Item(0)
outputmeasures(Line1)
AxMap1.Refresh()

End Sub

aLine.Parts 把它改成一楼的代码，确实就不会出现该类型不是集合类型，但是我想调用时一条直线，此处改为点，就不知道调用函数的参数该如何去对应了。
改为Line也不行的。呵呵。
谢谢大家的积极回帖呀。

[古今多少事]

看得很累，重写吧，NET绘图方面应该比6.0强多了……

[yanlongwuhui]

只有部分代码，可能没理解正确，你试试outputmeasures(Line1) 改成outputmeasures(Pts)，把Private Sub outputmeasures(ByVal aLine As Line)改成Private Sub outputmeasures(ByVal aLine As Points)

[swatofa]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListLayers()
End Sub

Private Sub ListLayers()

Dim pFld As Field
Dim Recs As Recordset
Dim Layer As MapLayer
Layer = AxMap1.Layers.Item(0)
Recs = Layer.Records

For Each pFld In recs.fields “该类型不是集合类型”。
ListBox1.Items.Add(pFld.Name)
Next pFld
目的：把recs中的所有Fields添加到listbox中去。
End Sub

Private Sub drawlayer()
Dim dc As New DataConnection
dc.Database = "C:\Program Files\ESRI\MapObjects2\Samples\Data\World"
If Not dc.Connect Then
MsgBox("在指定的文件夹下没找到图层数据文件！")
End
End If
layer1 = New MapLayer
layer1.GeoDataset = dc.FindGeoDataset("country")
layer1.Symbol.Color = System.Convert.ToUInt32(ColorConstants.moOrange)
layer1.Symbol.Size = 1
layer1.Symbol.Style = FillStyleConstants.moTransparentFill
AxMap1.Layers.Add(layer1)

End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

drawlayer()
ListLayers()

End Sub
其实上面的问题和这个问题是一个道理的，我用的是MapObjects组件开发。这些代码在vb6中可以很好的执行，不会有错误，可是用到.net中就老是提示该类型不是集合类型。

[swatofa]

For Each partLine In aLine.Parts ------aLine.Parts不是集合类型！
这个问题已经自己解决了，现在是下面这个问题解决不了，本想象第一个问题那样的解决方法照搬，可是行不通。
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListLayers()
End Sub

Private Sub ListLayers()

Dim pFld As Field
Dim Recs As Recordset
Dim Layer As MapLayer
Layer = AxMap1.Layers.Item(0)
Recs = Layer.Records

For Each pFld In recs.fields “该类型不是集合类型”。
ListBox1.Items.Add(pFld.Name)
Next pFld
目的：把recs中的所有Fields添加到listbox中去。
End Sub

Private Sub drawlayer()
Dim dc As New DataConnection
dc.Database = "C:\Program Files\ESRI\MapObjects2\Samples\Data\World"
If Not dc.Connect Then
MsgBox("在指定的文件夹下没找到图层数据文件！")
End
End If
layer1 = New MapLayer
layer1.GeoDataset = dc.FindGeoDataset("country")
layer1.Symbol.Color = System.Convert.ToUInt32(ColorConstants.moOrange)
layer1.Symbol.Size = 1
layer1.Symbol.Style = FillStyleConstants.moTransparentFill
AxMap1.Layers.Add(layer1)

End Sub


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

drawlayer()
ListLayers()

End Sub
其实上面的问题和这个问题是一个道理的，我用的是MapObjects组件开发。这些代码在vb6中可以很好的执行，不会有错误，可是用到.net中就老是提示该类型不是集合类型。

[wjq]

recs.fields.Refresh()

For Integer Idx =0 To recs.fields.Count
ListBox1.Items.Add(recs.fields(Idx).Name)
Next Idx
这样不行？确定rs已经填充了数据了？

[swatofa]

[Quote=引用 18 楼 yanlongwuhui 的回复:]

跟踪查看下recs的值，以后recs.fields.count的值
[/Quote]
recs有值，county也有值，就是afield为nothing。

wjq你好，rs已经填充了数据了，确定有值，用其他语句可以查出有分配值的。你那样也不行，总是提示未将对象引用设置到对象的实例。
排错提示： 使用new关键字创建对象实例；在调用方法前通过检查确定对象是否为空。另外，没有找到recs.fields.Refresh()
这个函数哦

[angel6709]

upup

[wswbeijing]

20楼的方法应该是可以的
用他的语句加一句调试看看，对于vb.net，如果你用的是对象数组
里面的元素默认是未实例化的，需要先用new实例化一次，你用调试语句检查一下是否实例化了

For Integer Idx =0 To recs.fields.Count
if recs.fields(idx) is nothing then
ListBox1.Items.Add("Nothing")
else
ListBox1.Items.Add(recs.fields(Idx).Name)
endif
Next Idx

另外，vb。net实际调试的时候更方便，你可以在
Private Sub ListLayers()

Dim pFld As Field
Dim Recs As Recordset
Dim Layer As MapLayer
Layer = AxMap1.Layers.Item(0)
Recs = Layer.Records '这行设置断点，然后中断后，鼠标移到layer.records上看看，里面到底都什么情况

[outou]

看起来好乱呀，从重写吧。

[yanlongwuhui]

[Quote=引用 14 楼 swatofa 的回复:]
加个aField=recs.fields.item(i)时发现aField为nothing，没有找到对象。
[/Quote]
跟踪查看下recs的值，以后recs.fields.count的值

[swatofa]

22楼wswbeijing 的方法果然有用，竟然发现combobox添加的所有项目都为nothing，看来是值为空，肯定是哪里出错了，得再找找原因了。

[yanlongwuhui]

[Quote=引用 13 楼 yanlongwuhui 的回复:]
试下：
Dim intI As Integer
For intI = 0 To recs.fields.count - 1
ListBox1.Items.Add(recs.fields(intI).name)
Next
[/Quote]

Dim intI As Integer
Dim pFld As Field
For intI = 0 To recs.fields.count - 1
pFld =recs.fields(intI)
IF NOT(pFld is nothing) then
ListBox1.Items.Add(pFld.name)
end if
Next

[tfzdh]

我学习了

[swatofa]

没找到合适的办法，只能先结贴了。有劳了各位大虾了。

[swatofa]

已经找到解决的方法了，只是不知道有没有人关注这里了。呵呵。