求助：listview中双击图标对应桌号之后生成关联数据不能对应，求解，貌似是焦点对应不上？还是关联表错误？还是代码错误？

使用了如下关联表

餐桌管理。订单表

订单表。预约登记

订单表。消费信息

订单表。消费明细

订单表。结账登记

订单表。清场登记

现在只有餐桌管理。订单表能够对应生成数据，其他的几个表都只是对应001编号的数据即便是新增也不会也数据进去。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:listview图标焦点不对.zip

此主题相关图片如下：22221111.jpg

当图标为闲置状态的时候双击图标弹出窗体新增编号正常

当图标为就餐状态、已预约状态时候双击图标弹出窗体编号不正常了显示未末尾已存在编号

求解：

要求不管在任何状态下都要对应当前编号

当图标点击001进行了预约登记之后如果不点其他图标继续点001图标编号正常数据正常

当图标点击001进行了预约登记之后点002图标后操作就餐，然后返回001图标操作就餐编号不正常

数据也不正常编号为032了应该为031

求解：

当闲置状态下新增订单编号其他状态不新增订单编号

但是不管打开顺序打开对应图标就应该对应当前图标名下的订单编号及子表数据

[此贴子已经被作者于2014-7-5 2:35:47编辑过]

afterLoad事件

If vr("状态") = "闲置中" Then
    Dim r As Row = Tables("餐桌管理.订单表").AddNew()
    Tables("订单表").Position = Tables("订单表").FindRow("订单编号='" & r("订单编号") & "'")
    Tables("订单表.消费信息").Filter = "1=2"
    Tables("订单表.结账登记").Filter = "1=2"
    Tables("订单表.清场登记").Filter = "1=2"
    Tables("订单表.预约登记").Filter = "1=2"
End If

十分感谢有点甜老师这个问题从昨天折磨到今天现在终于解脱了谢谢

有点甜老师还得麻烦你一下上述操作对于只有一行数据来说是没有问题的但是对于已经有多行记录的情况下我想增加一个显示末尾行记录也就是倒序。

你对表进行一下排序即可，比如

Tables("订单表.消费信息").Sort= "_Sortkey desc"

现在新问题来了采用上面方式代码之后关闭项目再次打开项目编号不新增了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:listview.zip

空置中状态代码如下

If vr("状态") = "闲置中" Then
    'Tables("餐桌管理.订单表").AddNew()
    DataTables("订单表").LoadFilter = "[_Identify] Is Null"
    DataTables("订单表").Load
    Dim r As Row = Tables("订单表").AddNew
    r("餐桌编号")=Vars("桌号")
    r.Save
End If