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

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

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

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

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