主题：怎样设计和代码

 表A 字段： 日期                       商品           金额
                2016-05-01            手机           1000
                2016-05-01            电脑           5000
                2016-05-10            手机            900
 表B 字段： 商品     金额
                手机      1000
                电脑      5000

表B怎样根据最近日期进行自动更新

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

 你好，请问下代码是写在datacolchanged 吗？

单独做一个按钮，需要的时候生成。

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

 

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

 

 好的，谢谢

添加了一个按钮之后，在最后两句赋值执行不出来呢
ndr("商品") = fdr("商品")
 ndr("金额") = fdr("金额")

代码没问题，你不要在DataColChanged事件写那段代码

 发现有相同日期的是执行不了的？

代码没有问题，做个例子上来看看。