修改.bas

自行开发 水准网平差程序

Attribute VB_Name = "Module1"
Sub TakeValue()
    Dim tmp As String, i As Integer
    Dim t As Double
    Dim arecord As Recordset
    Set arecord = g_d_Base.OpenRecordset("基本信息表", dbOpenTable)
    With arecord
       If .RecordCount > 0 Then
        .MoveFirst
        If .Fields(0) <> "" Then g_Pro = .Fields(0)
        g_Loc = .Fields(1)
        g_InsName = .Fields(2)
        g_InsNum = .Fields(3)
        g_Obs = .Fields(4)
        g_Obd = .Fields(5)
        g_Com = .Fields(6)
        g_Cod = .Fields(7)
        g_Els = .Fields(8)
        g_Ed = .Fields(9)
        g_Dd = .Fields(10)
        g_PotNum = .Fields(8)
        g_ObsNum = .Fields(9)
    
        
       End If
    End With
    arecord.Close
    Set arecord = g_d_Base.OpenRecordset("点名表", dbOpenTable)
    With arecord
        If .RecordCount > 0 Then
            .MoveFirst
            For i = 1 To g_PotNum
                g_PotName(i) = .Fields(1)
                If i <= g_Ed Then
                    g_Z0(i) = .Fields(2)
                End If
                If i < g_PotNum Then
                    .MoveNext
                End If
            Next i
        End If
    End With
    arecord.Close
    Set arecord = g_d_Base.OpenRecordset("观测数据表", dbOpenTable)
    With arecord
      If .RecordCount > 0 Then
         .MoveFirst
         For i = 1 To g_ObsNum
             g_StaPotName(i) = .Fields(1)
             g_EndPotName(i) = .Fields(2)
             g_H(i) = .Fields(3)
             If i < g_ObsNum Then
                 .MoveNext
             End If
         Next i
       End If
    End With
    arecord.Close
End Sub