jiking001
jiking001
采纳率0%
2016-03-20 11:55 阅读 1.6k

请问各大神,如何将datagrid表格中的第一列数据逐行计算后,再将得出的结果依次放入第二列?

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

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享

2条回答 默认 最新

  • caozhy 从今以后生命中的每一秒都属于我爱的人 2016-03-20 13:55

    你具体什么不会,是不知道怎么从datagrid取数据,还是不会计算,还是不会给第二列赋值?

    点赞 1 评论 复制链接分享
  • jiking001 jiking001 2016-03-23 01:50

    不知道怎么从datagrid取数据,取完数据计算后,想给计算后的值放到第二列

    点赞 评论 复制链接分享

相关推荐