主题：实现这个功能怎么样写代码

晚上才有时间了，大家先看看！

DataColChanged事件代码，判断自己加。


Dim dr As DataRow = e.DataRow
Dim drs As List(Of DataRow) = DataTables("表A").Select("[材料编号] = '" & dr("材料编号") & "'","更新日期 Desc")
For i As integer = 0 to drs.count -1
    drs(i)("不在显示") = i = 0
Next

8楼代码，在你增加一条记录时就判断并勾选隐藏旧的的单价的行不是可以吗？配合打开表或项目时，就筛选没有勾选的记录，不管有多少不同的编号，显示的都是每个编号最新的单价呀，

用Czy兄的解决了，谢谢CCzy兄

更新单价后，保存，退出，重新打开就可以看不到旧单价了，，，
有办法保存后就达到效果吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

加一条代码： Tables("表A").Filter = "[不在显示] = True"  就可以了～

谢谢各位，解决了。

很棒的价格更新表，还可以查看原始单价，做价格波动曲线图，，，，

谢谢了。

呵，好历害。。

各位大哥，还有一个问题

我在项目BeforeLoadOuterTable事件中放此代码
If e.DataTableName = "成品打包信息" then
    Select Case e.User.Group
        Case "数据输入组","查看组"
            e.SelectString = "Select All * From {成品打包信息} Where 不在显示 = True "
        Case "开发组","管理组"
            e.SelectString = "Select All * From {成品打包信息}"
    End Select
End If

当我用开发组与管理组时，能成功打开外部数据表
用数据据输入组与查看组时，出现此错误提示

此主题相关图片如下：qq截图未命名.jpg


如何解决？

没测试出有什么问题。

难道我是外部数据源的原因？
我用管理组与开发组用户登录没有问题