Dim drs As List(of DataRow) = DataTables("批量预测").SQLSelect("代码 = '" & dm & "'" )
Dim i0 As Integer = 0 ’预设本行的主键值
For Each dr As DataRow In drs
Dim dr01 As DataRow = DataTables("导入数据").SQLFind("代码 = '" & dm & "' And 日期 = '" & dr("日期") & "'" )
If dr01 IsNot Nothing Then
dr("实际涨跌幅") = dr01("涨跌幅")
dr("换手率") = dr01("换手率")
i0 = dr("_Identify") ’本行的主键值
End If
Dim dr02 As DataRow = DataTables("导入数据").SQLFind("[_Identify] = i0 +1 ") ’下1行
If dr02 IsNot Nothing Then
dr("上1日换手率") = dr02("换手率")
End If
Dim dr002 As DataRow = DataTables("导入数据").SQLFind("[_Identify] = i0 +2 ") ’下2行
If dr002 IsNot Nothing Then
dr("上2日换手率") = dr002("换手率")
End If
Dim dr003 As DataRow = DataTables("导入数据").SQLFind("[_Identify] = i0 +3 ") ’下3行
If dr003 IsNot Nothing Then
dr("上3日换手率") = dr003("换手率")
End If
Next
加好友 
发短信
Post By：2020/9/8 8:36:00 [只看该作者]
此主题相关图片如下：截屏图片 (2).jpg