http://topic.csdn.net/u/20091202/13/4b34f37d-1858-4684-9834-ced8018cd019.html?seed=1536966459&r=61655233#r_61655233 
大家去看看~~就差第一个问题了~~保存下来的数据不一致我
拜托了!!!!!!

解决方案 »

  1.   

    1 你的建立节点和循环有问题 但应该和文件数据错误无关
    2 保存文件
    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 
    把nodeX.SubItems改成ListView1.ListItems(i).SubItems(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