2 jiking001 jiking001 于 2016.03.20 19:55 提问

请问各大神,如何将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
caozhy   Ds   Rxr 2016.03.20 21:55

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

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

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

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!