[浏览完整版]
标题：实现这个功能怎么样写代码
1楼
卟离卟弃 发表于：2010/1/26 19:25:00upload=table,管理项目1.table]viewFile.asp?ID=5651[/upload]
在单价更新表中,只希望看到最新单价
此主题相关图片如下：qq截图未命名.jpg
如此图 材料编号 A001 的物品，有两个单价，两个更新日期，怎么样实现，自动在 不显示列 中，代码自动对比编号，对比日期，选中 比1-26日 大 的那一行
只希望在单价更新表中看见最新单价，老单价不能删除，保存在数据库中，不进行加载，，，在对比单价是否是新单价时，通过 日期 与 编号 进行对比，同编号的只显示最新日期的单价。
各位大哥，看看。。
在单价更新表中,只希望看到最新单价
此主题相关图片如下：qq截图未命名.jpg如此图 材料编号 A001 的物品，有两个单价，两个更新日期，怎么样实现，自动在 不显示列 中，代码自动对比编号，对比日期，选中 比1-26日 大 的那一行
只希望在单价更新表中看见最新单价，老单价不能删除，保存在数据库中，不进行加载，，，在对比单价是否是新单价时，通过 日期 与 编号 进行对比，同编号的只显示最新日期的单价。
各位大哥，看看。。
2楼
程兴刚 发表于：2010/1/26 19:33:00上传文件，很快搞定，先出去一趟，回来再看！
[此贴子已经被作者于2010-1-26 19:33:26编辑过]
3楼
mr725 发表于：2010/1/26 20:45:00按日期降序一下，最新的就排到第一行啦～
Dim dr As DataRow
dr = DataTables("单价更新表").Find(" 编号 = 'A001' ","日期 Desc")
Output.Show("最新单价: " & dr("单价"))
[此贴子已经被作者于2010-1-26 20:56:17编辑过]
4楼
程兴刚 发表于：2010/1/26 20:55:00参考max
5楼
卟离卟弃 发表于：2010/1/27 10:35:00
6楼
卟离卟弃 发表于：2010/1/27 10:36:00大哥 Find(" 编号 = 'A001' ",
编号很多啊。。。
从A001可以到A999，那要写多少这样的 Find(" 编号 = 'A001' ",","日期 Desc")
我是想自动对比（根据输入的日期，与编号，查表中相同的编号，对比日期，日期小的留下，大的 不在显示列 中就打勾），，
我想只显示每个编号的最新单价，，，
旧单价 在 不在显示列中打勾，打勾后下次打开文件加不会加载了。
编号很多啊。。。
从A001可以到A999，那要写多少这样的 Find(" 编号 = 'A001' ",","日期 Desc")
我是想自动对比（根据输入的日期，与编号，查表中相同的编号，对比日期，日期小的留下，大的 不在显示列 中就打勾），，
我想只显示每个编号的最新单价，，，
旧单价 在 不在显示列中打勾，打勾后下次打开文件加不会加载了。
[此贴子已经被作者于2010-1-27 10:39:35编辑过]
7楼
狐狸爸爸 发表于：2010/1/27 10:48:00看不懂，另表达式不是可以自动合成的吗？
8楼
mr725 发表于：2010/1/27 12:23:00'
With tables("表A")
Dim r As Integer
r = .FindRow("[材料编号] = '" & tables("表A").current("材料编号") & "'and [更新日期] < '" & _
tables("表A").current("更新日期") & "'", .Position + 1, True )
If r >= 0 Then
.Position = r
.current("不在显示") = true
.Filter = "[不在显示] <> True"
End If
End With
With tables("表A")
Dim r As Integer
r = .FindRow("[材料编号] = '" & tables("表A").current("材料编号") & "'and [更新日期] < '" & _
tables("表A").current("更新日期") & "'", .Position + 1, True )
If r >= 0 Then
.Position = r
.current("不在显示") = true
.Filter = "[不在显示] <> True"
End If
End With
[此贴子已经被作者于2010-1-27 12:23:20编辑过]
9楼
卟离卟弃 发表于：2010/1/27 15:08:00想建一个采购物品单价更新表，把所有的物料都放在表中，每一项物料都有唯一的编号，
比如
2010年1月25日 物料编号 A001 单价 5
2010年2月29日 物料编号 A001 单价 6
此时表格中A001物料会有两个单价，但只需要最新的，想把1月25日的单价隐藏（不在显示列 中选中），由于有N种物料N个编号，不可能手工筛选，在一个一个去选中,,,想让表格自动对比，自动选中 不在显示列。
比如
2010年1月25日 物料编号 A001 单价 5
2010年2月29日 物料编号 A001 单价 6
此时表格中A001物料会有两个单价，但只需要最新的，想把1月25日的单价隐藏（不在显示列 中选中），由于有N种物料N个编号，不可能手工筛选，在一个一个去选中,,,想让表格自动对比，自动选中 不在显示列。
10楼
程兴刚 发表于：2010/1/27 15:54:00以下是引用卟离卟弃在2010-1-27 10:36:00的发言：
大哥 Find(" 编号 = 'A001' ",
编号很多啊。。。
从A001可以到A999，那要写多少这样的 Find(" 编号 = 'A001' ",","日期 Desc")
我是想自动对比（根据输入的日期，与编号，查表中相同的编号，对比日期，日期小的留下，大的 不在显示列 中就打勾），，
我想只显示每个编号的最新单价，，，
旧单价 在 不在显示列中打勾，打勾后下次打开文件加不会加载了。
大哥 Find(" 编号 = 'A001' ",
编号很多啊。。。
从A001可以到A999，那要写多少这样的 Find(" 编号 = 'A001' ",","日期 Desc")
我是想自动对比（根据输入的日期，与编号，查表中相同的编号，对比日期，日期小的留下，大的 不在显示列 中就打勾），，
我想只显示每个编号的最新单价，，，
旧单价 在 不在显示列中打勾，打勾后下次打开文件加不会加载了。
[此贴子已经被作者于2010-1-27 10:39:35编辑过]
既然是单价，为何不以材料自身特征查？比如材料类别、材料名称、材料规格，编号既是不定数，且相对于该材料的该编号，价格库中只会有一个，没有最新和最旧之说。