以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样设计和代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84947)
--  作者：woshiabc
--  发布时间：2016/5/13 15:40:00
--  怎样设计和代码
 表A 字段： 日期                       商品           金额
                2016-05-01            手机           1000
                2016-05-01            电脑           5000
                2016-05-10            手机            900
 表B 字段： 商品     金额
                手机      1000
                电脑      5000

表B怎样根据最近日期进行自动更新
--  作者：大红袍
--  发布时间：2016/5/13 15:48:00
--  

Dim dt1 As DataTable = DataTables("表B")
Dim dt2 As DataTable = DataTables("表A")
dt1.Datarows.Clear
For Each sp As String In dt2.GetValues("商品")
    Dim fdr As DataRow = dt2.find("商品 = \'" & sp & "\'", "日期 desc, _Identify desc")
    Dim ndr As DataRow = dt1.addnew
    ndr("商品") = fdr("商品")
    ndr("金额") = fdr("金额")
Next
--  作者：woshiabc
--  发布时间：2016/5/13 15:53:00
--  
 你好，请问下代码是写在datacolchanged 吗？
--  作者：大红袍
--  发布时间：2016/5/13 15:53:00
--  
单独做一个按钮，需要的时候生成。
--  作者：大红袍
--  发布时间：2016/5/13 15:54:00
--  

如果要写到datacolchanged事件，参考这个方法

 

http://www.foxtable.com/help/topics/1453.htm

 
--  作者：woshiabc
--  发布时间：2016/5/13 15:54:00
--  
 好的，谢谢
--  作者：woshiabc
--  发布时间：2016/5/13 16:09:00
--  
添加了一个按钮之后，在最后两句赋值执行不出来呢
ndr("商品") = fdr("商品")
 ndr("金额") = fdr("金额")
--  作者：大红袍
--  发布时间：2016/5/13 16:16:00
--  
代码没问题，你不要在DataColChanged事件写那段代码
--  作者：woshiabc
--  发布时间：2016/5/13 16:17:00
--  
 发现有相同日期的是执行不了的？
--  作者：大红袍
--  发布时间：2016/5/13 16:46:00
--  
代码没有问题，做个例子上来看看。