以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  老师帮看一下，SQLselect和select的运行结果为什么不一样啊？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120538)
--  作者：guosheng
--  发布时间：2018/6/19 9:38:00
--  老师帮看一下，SQLselect和select的运行结果为什么不一样啊？
为什么select能够达到赋值，而SQLSelect没有达到执行赋值啊？


Dim cr As Row = Tables("计划执行情况表").Current

1、Dim drs As List(of DataRow) = DataTables("计划执行情况表").SQLSelect("项目编号 =\'"& cr("项目编号") &"\' And  一级编号=\'"& cr("一级编号") &"\' and 等级=\'二级\'")
If drs IsNot Nothing
    For Each dr As DataRow In drs
        If dr.isnull("开始时间")
            dr("开始时间")=rq
        End If
    Next
End If

2、Dim drs As List(of DataRow) = DataTables("计划执行情况表").Select("项目编号 =\'"& cr("项目编号") &"\' And  一级编号=\'"& cr("一级编号") &"\' and 等级=\'二级\'")
If drs IsNot Nothing
    For Each dr As DataRow In drs
        If dr.isnull("开始时间")
            dr("开始时间")=rq
        End If
    Next
End If
[此贴子已经被作者于2018/6/19 9:39:03编辑过]
--  作者：有点甜
--  发布时间：2018/6/19 10:11:00
--  

1、dr要save，如

 

dr("开始时间")=rq

dr.save

 

2、或者看看 http://www.foxtable.com/webhelp/scr/2901.htm

 

3、修改值以后，修改的是后台的值，不会显示在前台的。
--  作者：guosheng
--  发布时间：2018/6/19 12:16:00
--  
再次咨询一下老师：如果在末尾加上Tables("计划执行情况表").save ，重新打开项目，并没有执行赋值代码；而如果在for循环内加入 dr.save，则赋值正常（如果不用“行”保存，而采用“表”保存的形式，应该怎么操作啊？）。  表的保存和行的保存在此处运用，有什么区别吗？
Dim cr As Row = Tables("计划执行情况表").Current
Dim drs As List(of DataRow) = DataTables("计划执行情况表").SQLSelect("项目编号 =\'"& cr("项目编号") &"\' And  一级编号=\'"& cr("一级编号") &"\' and 等级=\'二级\'")
If drs IsNot Nothing
    For Each dr As DataRow In drs
        If dr.isnull("开始时间")
            dr("开始时间")=rq
       \'dr.save
        End If
    Next
End If
\'Tables("计划执行情况表").save
[此贴子已经被作者于2018/6/19 12:33:41编辑过]
--  作者：有点甜
--  发布时间：2018/6/19 15:35:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2901.htm