请问各大神,如何将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个回答

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

jiking001
jiking001 不知道怎么从datagrid取数据,取完数据计算后,想给计算后的值放到第二列
4 年多之前 回复

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

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐