主题：数据替换填充

和昨天一样的调试方法，有没有加载了符合条件的数据？

请上传实例测试

改为datatable试试，table会受筛选影响，筛选掉的数据是不会计算的

贴出完整代码！

msgbox("[发货日期]>= #" & dt0 & "# and [发货日期]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='c'" & "And 发货日期 Is Not null")

       kgh3=Tables("ddpsb").Compute("Sum(自产重量)","[发货日期]>= #" & dt0 & "# and [发货日期]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='c'" & "And 发货日期 Is Not null")

msgbox("[发货日期]>= #" & dt0 & "# and [发货日期]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='z'" & "And 发货日期 Is Not null")

msgbox(kgh4)

        kgh4=Tables("ddpsb").Compute("Sum(自产重量)","[发货日期]>= #" & dt0 & "# and [发货日期]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='z'" & "And 发货日期 Is Not null")

msgbox("[ckdate]>= #" & dt0 & "# and [ckdate]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='c'")

msgbox(ylkje3)

        ylkje3= Tables("ylckb").Compute("Sum(出库_含税额)","[ckdate]>= #" & dt0 & "# and [ckdate]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='c'")

msgbox("[ckdate]>= #" & dt0 & "# and [ckdate]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='z'")

msgbox(ylkje4)

        ylkje4= Tables("ylckb").Compute("Sum(出库_含税额)","[ckdate]>= #" & dt0 & "# and [ckdate]<= #" & dt3 & "# And [客户] Not In ('abb','魏德曼','博瑞','博驰','望变') And substring([ddlb],1,1)='z'")