ListView 的显示问题

[clchenle317]

我的ListView上总是第一列显示不出来
If Not LocRst1.EOF Then
LocRst1.MoveFirst
g = LocRst1.RecordCount
For f = 1 To g - 1

callno1 = LocRst1.Fields("CALL_NO")
localx1 = LocRst1.Fields("X")
localy1 = LocRst1.Fields("Y")
height1 = LocRst1.Fields("HEIGHT")

LocRst1.MoveNext
For w = f + 1 To g

callno2 = LocRst1.Fields("CALL_NO")
localx2 = LocRst1.Fields("X")
localy2 = LocRst1.Fields("Y")
height2 = LocRst1.Fields("HEIGHT")

height = Abs(height1 - height2)
localxy = ((localx1 - localx2) ^ 2) + ((localy1 - localy2) ^ 2)
If height < 300 And localxy < 100 Then


Dim litsX As ListItem
Set litsX = ListView1.ListItems.Add(, , "")
litsX.SubItems(1) = callno1
litsX.SubItems(2) = callno2
litsX.SubItems(3) = t

MsgBox "飞机飞行间隔不合理"
Exit Sub

callno1总是空值啊??什么原因?

[jobs002]

两个next 在什么地方?

[clchenle317]

MsgBox "飞机飞行间隔不合理"
LocRst1.Close
Exit Sub


End If


Next w


Next f
Else
LocRst1.Close
End If


t = t + 4
Loop

LocRst1.Close
MsgBox "飞机飞行间隔合理"
Exit Sub

[clear_zero]

完整的重贴一遍吧，有点迷糊
建议你把断点设到
callno1 = LocRst1.Fields("CALL_NO")
F8检查一遍，应该能找到原因