- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 实现这个功能怎么样写代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5871)
-- 发布时间：2010/1/26 19:25:00
-- 实现这个功能怎么样写代码
upload=table,管理项目1.table]viewFile.asp?ID=5651[/upload]
在单价更新表中,只希望看到最新单价
此主题相关图片如下：qq截图未命名.jpg
如此图 材料编号 A001 的物品，有两个单价，两个更新日期，怎么样实现，自动在 不显示列 中，代码自动对比编号，对比日期，选中 比1-26日 大 的那一行
只希望在单价更新表中看见最新单价，老单价不能删除，保存在数据库中，不进行加载，，，在对比单价是否是新单价时，通过 日期 与 编号 进行对比，同编号的只显示最新日期的单价。
各位大哥，看看。。
-- 发布时间：2010/1/26 19:33:00
--
上传文件，很快搞定，先出去一趟，回来再看！
[此贴子已经被作者于2010-1-26 19:33:26编辑过]
-- 发布时间：2010/1/26 20:45:00
--
按日期降序一下，最新的就排到第一行啦～
Dim dr As DataRow
dr = DataTables("单价更新表").Find(" 编号 = \'A001\' ","日期 Desc")
Output.Show("最新单价: " & dr("单价"))
[此贴子已经被作者于2010-1-26 20:56:17编辑过]
-- 发布时间：2010/1/26 20:55:00
--
参考max
-- 发布时间：2010/1/27 10:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
附件文件
-- 发布时间：2010/1/27 10:36:00
--
大哥 Find(" 编号 = \'A001\' ",
编号很多啊。。。
从A001可以到A999，那要写多少这样的 Find(" 编号 = \'A001\' ",","日期 Desc")
我是想自动对比（根据输入的日期，与编号，查表中相同的编号，对比日期，日期小的留下，大的 不在显示列 中就打勾），，
我想只显示每个编号的最新单价，，，
旧单价 在 不在显示列中打勾，打勾后下次打开文件加不会加载了。
[此贴子已经被作者于2010-1-27 10:39:35编辑过]
-- 发布时间：2010/1/27 10:48:00
--
看不懂，另表达式不是可以自动合成的吗？
-- 发布时间：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
[此贴子已经被作者于2010-1-27 12:23:20编辑过]
-- 发布时间：2010/1/27 15:08:00
--
想建一个采购物品单价更新表，把所有的物料都放在表中，每一项物料都有唯一的编号，
比如
2010年1月25日 物料编号 A001 单价 5
2010年2月29日 物料编号 A001 单价 6
此时表格中A001物料会有两个单价，但只需要最新的，想把1月25日的单价隐藏（不在显示列 中选中），由于有N种物料N个编号，不可能手工筛选，在一个一个去选中,,,想让表格自动对比，自动选中 不在显示列。
-- 发布时间：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编辑过]
既然是单价，为何不以材料自身特征查？比如材料类别、材料名称、材料规格，编号既是不定数，且相对于该材料的该编号，价格库中只会有一个，没有最新和最旧之说。