以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于sqlselect  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123864)

--  作者:81538475
--  发布时间:2018/8/24 23:59:00
--  [求助]关于sqlselect
datacolchanged 代码
       e.DataRow.Save()
        Dim sum As Double
        Dim R As Row = Tables("XMFP").Current 
        Dim BH As String = e.DataRow("BH")
        Dim rw As String = e.DataRow("任务").replace("\'", "\'\'")    
        sum = DataTables("XMFP").SQLCompute("Sum(当月人天)","任务= \'"& rw & "\' and BH = \'" & BH & "\' ")    
        Dim drs As List(Of DataRow)
        drs = DataTables("XMFP").SQLSe/ect("任务= \'" & rw & "\' and BH = \'" & BH & "\'")
        Dim sy As Double = e.DataRow("任务人天")- sum
        For Each dr2 As DataRow In drs
        msgbox(dr2("当月人天"))
            dr2("剩余人天") = sy         
        Next

这个代码是哪里的问题提呢。dr2(“剩余人天”)计算出来了,也是正确的。但是没有写入对应的单元格。
去掉sql就可以计算。但是这里我需要用到sqlse/ect

--  作者:有点蓝
--  发布时间:2018/8/25 8:38:00
--  
1、sqlxxxx系列的用法都是直接写数据库的,不会更改界面的数据,要重新加载才会刷新

2、上面的代码只是赋值,没有保存:http://www.foxtable.com/webhelp/scr/2901.htm

--  作者:81538475
--  发布时间:2018/8/25 10:18:00
--  
那有其他代码可以代替吗
--  作者:有点蓝
--  发布时间:2018/8/25 11:03:00
--  
1、使用select:DataTables("XMFP").Se/ect

2、看2楼第二条

--  作者:81538475
--  发布时间:2018/8/25 13:30:00
--  
  DataTables("XMFP").SQLUpdate(drs)


        For Each dr3 As DataRow In drs
            dr3.Load()
        Next
我后面想把这些行重新加载出来。报错了。这个load的命令应该怎么用呢。

--  作者:有点蓝
--  发布时间:2018/8/25 14:03:00
--  
DataTables("XMFP").SQLUpdate(drs)
DataTables("XMFP").RemoveFor("任务= \'" & rw & "\' and BH = \'" & BH & "\' ")
DataTables("XMFP").AppendLoad("任务= \'" & rw & "\' and BH = \'" & BH & "\' ")

--  作者:81538475
--  发布时间:2018/8/25 18:19:00
--  
DataTables(“表A").DataRows(1).Load()
另外想了解下,上面的代码中的红色位置是表格上面的行号,还是_indentify 呢。还有就是如何获得选择行的这个序号。

--  作者:81538475
--  发布时间:2018/8/25 20:18:00
--  
解决了