以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  克隆列数据的方法?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56045)

--  作者:身份不明
--  发布时间:2014/8/28 13:13:00
--  克隆列数据的方法?

库存的页面,每页加载10行数据,但是我有2列,当前库存和上月库存。

我想把当前库存这一列的数据全部克隆到上月库存的列里,如何连后台的数据一起克隆过去呢。

 


--  作者:Bin
--  发布时间:2014/8/28 14:18:00
--  
http://www.foxtable.com/help/topics/1533.htm
--  作者:身份不明
--  发布时间:2014/8/28 15:16:00
--  

Bin老师,我如果采用SQLtable的方法,使用下面的代码:

For Each dr1 As DataRow In DataTables("盘库窗口_Table1").Select("[当前库存] > 0")

    Dim dr2 As DataRow = DataTables("盘库窗口_Table1").AddNew()
    For Each dc As DataCol In DataTables("盘库窗口_Table1").DataCols
        dr2("上月库存") = dr1("当前库存")
    Next
Next

 

这样有错误吗,没有错误,表的数据也没有变化!!


--  作者:有点甜
--  发布时间:2014/8/28 15:20:00
--  

 

[此贴子已经被作者于2014-8-28 15:20:42编辑过]

--  作者:有点甜
--  发布时间:2014/8/28 15:22:00
--  
 回复1楼,你这样明显是不对的,当前库存是应该计算得出,而不是应该拷贝得出的,这样得到的数据,明显是不准确的。
--  作者:有点甜
--  发布时间:2014/8/28 15:24:00
--  

 这个意思?

 

For Each dr1 As DataRow In DataTables("盘库窗口_Table1").SqlSelect("[当前库存] > 0")   
    dr1("上月库存") = dr1("当前库存")

    dr1.Save
Next

[此贴子已经被作者于2014-8-28 15:24:19编辑过]

--  作者:身份不明
--  发布时间:2014/8/28 15:25:00
--  

当前库存就是已经计算出的结果。我是想把当前库存的数据拷贝到上月库存的列里面,2个列都在一个表里。


--  作者:有点甜
--  发布时间:2014/8/28 15:32:00
--  
 看6楼,看是否那个意思