Private Sub transform_Click()
Dim Ni As Double
Adodc1.Refresh
Adodc1.Recordset.Update
Ni = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For i = 1 To Ni
B = latRT.Text
L = longRT.Text
Call GSzs
DataGrid1.Columns(3) = X
DataGrid1.Columns(4) = Y
Adodc1.Recordset.MoveNext
Next
DataGrid1.Refresh
'Adodc1.Recordset.Update
End Sub
Private Sub PMGN()
If Left(PMGNstr, 8) = "$PMGNWPL" Then
For i = 1 To 8
dotPosition = InStr(PMGNstr, ",")
Str1(i) = Left(PMGNstr, dotPosition - 1)
PMGNstr = Mid(PMGNstr, dotPosition + 1)
Next i
Adodc1.Recordset.AddNew
latRT.Text = Format$(Left(Str1(2), 2) + Mid(Str1(2), 3) / 60, "###.00000000") '纬度
longRT.Text = Format$(Left(Str1(4), 3) + Mid(Str1(4), 4) / 60, "###.00000000") '经度
Adodc1.Recordset.Update
Adodc1.Refresh
DataGrid1.Refresh
End If
End Sub