主题：记录和查询样品历史价格和现价

请教各位前辈：我在做个样品管理系统，要如何达到系统能记录样品的历史价格。

例如在一千个样品信息中，有个货号是 AAA 的，1月1号价格为70元，2月1号价格为80元，3月1号价格为90元，4月1号价格为100元。

我希望系统能记录每次更新的价格和时间。让使用系统的人看到最新的价格，以及最低的价格。

不知道这样的效果要如何达到。毕竟上千个产品，我不能为每个产品去专门设一个表格来记录价格。有没有什么好办法呢？

急等妙法！

 直接查表就行了啊。比如，要查最新的价格

Dim fdr As DataRow = DataTables("表A").Find("产品 = 'A'", "日期 desc")

 比如，如果要查最低的价格

Dim fdr As DataRow = DataTables("表A").Find("产品 = 'A'", "价格")