以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]行赋值  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=153600)
--  作者：天一生水
--  发布时间：2020/8/16 22:37:00
--  [求助]行赋值

蓝老师好！

下面这段代码，用msgbox（）可以弹出每一个变量值，但是dr("实际涨跌幅") 却赋不上值，是哪里的问题？

 

......

 

Dim  drs As  List(of  DataRow) = DataTables("批量预测").SQLSelect("代码 = \'" & name & "\'")
For Each  dr As  DataRow In drs
    Dim dr2 As DataRow = DataTables("指数日线").SQLFind("代码 = \'" & name & "\'  And 日期 = \'" & dr("日期") & "\'" )
    If dr2 IsNot Nothing Then
        dr("实际涨跌幅") = dr2("涨跌幅")
        ’dr.Save()
    End If
Next
DataTables("批量预测").SQLUpdate(drs)
--  作者：有点蓝
--  发布时间：2020/8/16 22:46:00
--  
都是直接操作数据库，要重新加载才能看到新的数据
--  作者：天一生水
--  发布时间：2020/8/17 19:10:00
--  

谢谢蓝老师！

还有两个小问题：

 

1、下面这句代码中，用“实际涨跌幅 isNnull”  或者 “实际涨跌幅 = nothing”，都不能找到数据，是什么原因？     [实际涨跌幅]是双精度小数。

Dim  drs As  List(of  DataRow) = DataTables("批量预测").SQLSelect("代码 = \'" & name & "\' and  日期 <  \'" & Date.today  & "\' And 实际涨跌幅 isNnull")

 

 

2、代码运行完毕后，利用Load()加载会用较长时间，有没有快点的方法？

......

DataTables("批量预测").SQLUpdate(drs)   ’保存行


DataTables("批量预测").LoadFilter = ""     ’加载表数据
DataTables("批量预测").Load()

 

 

 

 
--  作者：有点蓝
--  发布时间：2020/8/17 20:11:00
--  
1、“实际涨跌幅 is null” is null分开，中间是空格