Dim codes As List (Of String) = DataTables("股piao信息明细表").GetValues("代码 Is Not Null","代码")
For Each code As String In codes
Dim drlist As List (Of DataRow) = DataTables("股piao信息明细表").Select("代码 = '" & code & "'","时间")
drlist(0)("涨跌幅") = (drlist(0)("收盘价") - drlist(0)("开盘价")) / drlist(0)("开盘价") * 1%
For i As Integer = 1 To drlist.Count - 1
drlist(i)("涨跌幅") = (drlist(i)("收盘价") - drlist(i - 1)("收盘价")) / drlist(i - 1)("收盘价") * 1%
Next
Next
加好友 
发短信
Post By：2020/5/21 20:16:00 [只看该作者]
