以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助:listview中双击图标 对应桌号之后生成关联数据 不能对应,求解,貌似是焦点对应不上?还是关联表错误?还是代码错误?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53317)

--  作者:李孝春
--  发布时间:2014/7/4 17:13:00
--  求助:listview中双击图标 对应桌号之后生成关联数据 不能对应,求解,貌似是焦点对应不上?还是关联表错误?还是代码错误?
求助:listview中双击图标 对应桌号之后生成关联数据 不能对应,求解,貌似是焦点对应不上?还是关联表错误?还是代码错误?

使用了如下关联表
餐桌管理。订单表
订单表。预约登记
订单表。消费信息
订单表。消费明细
订单表。结账登记
订单表。清场登记

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

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview图标焦点不对.zip

图片点击可在新窗口打开查看此主题相关图片如下:22221111.jpg
图片点击可在新窗口打开查看


当图标为闲置状态的时候 双击图标 弹出窗体 新增编号正常
当图标为就餐状态、已预约状态时候 双击图标 弹出窗体 编号不正常了 显示未末尾已存在编号  
求解:
要求不管在任何状态下 都要对应当前编号 

当图标点击001进行了预约登记之后  如果不点其他图标 继续点001图标  编号正常  数据正常
当图标点击001进行了预约登记之后  点002图标后操作就餐,然后返回001图标 操作就餐 编号不正常 
数据也不正常  编号为032了 应该为031

求解:
当闲置状态下 新增订单编号  其他状态 不新增订单编号
但是不管打开顺序 打开对应图标 就应该对应当前图标名下的 订单编号及子表数据

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

--  作者:有点甜
--  发布时间:2014/7/4 17:25:00
--  

 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


--  作者:李孝春
--  发布时间:2014/7/4 17:29:00
--  回复:(有点甜) afterLoad事件 If vr...
十分感谢 有点甜老师  这个问题从昨天折磨到今天 现在终于解脱了 谢谢
--  作者:李孝春
--  发布时间:2014/7/4 17:59:00
--  回复:(李孝春)回复:(有点甜) afterLoad事件...
有点甜老师 还得麻烦你一下 上述操作 对于只有一行数据来说是没有问题的 但是对于已经有多行记录的情况下 我想增加一个显示末尾行记录 也就是倒序。
--  作者:有点甜
--  发布时间:2014/7/4 18:01:00
--  

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

 

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


--  作者:李孝春
--  发布时间:2014/7/4 18:16:00
--  回复:(有点甜) 你对表进行一下排序即可,比如...
现在新问题来了 采用上面方式代码之后 关闭项目再次打开项目 编号不新增了 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:listview.zip




--  作者:李孝春
--  发布时间:2014/7/4 22:45:00
--  

空置中状态代码如下

If vr("状态") = "闲置中" Then
    \'Tables("餐桌管理.订单表").AddNew()
    DataTables("订单表").LoadFilter = "[_Identify] Is Null"
    DataTables("订单表").Load
    Dim r As Row = Tables("订单表").AddNew
    r("餐桌编号")=Vars("桌号")
    r.Save
End If
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:listview201407050127.zip


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

此主题相关图片如下:0001110.jpg
按此在新窗口浏览图片

此主题相关图片如下:000222.jpg
按此在新窗口浏览图片

此主题相关图片如下:0003333222.jpg
按此在新窗口浏览图片
 
当状态为已预约状态就运行部正常了 所有的数据都是当前已经完成的末尾行数据 求解决 

此主题相关图片如下:000333.jpg
按此在新窗口浏览图片
当图标为就餐状态、已预约状态时候 双击图标 弹出窗体 编号不正常了 显示未末尾已存在编号  
求解:
要求不管在任何状态下 都要对应当前编号 

当图标点击001进行了预约登记之后  如果不点其他图标 继续点001图标  编号正常  数据正常
当图标点击001进行了预约登记之后  点002图标后操作就餐,然后返回001图标 操作就餐 编号不正常 
数据也不正常  编号为036了 应该为035

求解:
当闲置状态下 新增订单编号  其他状态 不新增订单编号
但是不管打开顺序 打开对应图标 就应该对应当前图标名下的 订单编号及子表数据

期待的效果:
只是在空置状态下才操作生成订单  其他状态都不生成订单表中数据  只生成预约 消费 结账 清场等数据
比如当空置状态时候 实现新增订单
当已预约状态 说明已经生成了订单 那么就调取当前桌号的末尾行记录 编号对应
当就餐中状态 也是一样的对应




[此贴子已经被作者于2014-7-5 8:28:50编辑过]