7,763
社区成员
发帖
与我相关
我的任务
分享
For i = 1 To ListView1.ListItems.Count
Print #1, "序号" & vbTab & "测量值" & vbTab & "误差值"
Print #1, ListView1.ListItems(i) & vbTab & nodeX.SubItems(1) & vbTab & nodeX.SubItems(2)
Next
Close #1
For i = 1 To ListView1.ListItems.Count
Print #1, "序号" & vbTab & "测量值" & vbTab & "误差值"
Print #1, ListView1.ListItems(i) & vbTab & ListView1.ListItems(i).SubItems(1) & vbTab & ListView1.ListItems(i).SubItems(2)
Next
Close #1
Exit Sub