以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  模拟关联表增加新行问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=65772)

--  作者:swagger
--  发布时间:2015/3/22 22:15:00
--  模拟关联表增加新行问题
窗口中要点击订单明细表才能增加相应行,如果不点击明细表,则会在明细表增加空行,这个是什么原因
--  作者:有点甜
--  发布时间:2015/3/22 22:18:00
--  

 代码有问题。用类似下面的代码

 

Dim nr As Row = Tables("订单明细表").AddNew

nr("订单编号") = Tables("订单表").Current("订单编号")


--  作者:swagger
--  发布时间:2015/4/8 11:19:00
--  
以下是引用有点甜在2015/3/22 22:18:00的发言:

 代码有问题。用类似下面的代码

 

Dim nr As Row = Tables("订单明细表").AddNew

nr("订单编号") = Tables("订单表").Current("订单编号")

删除行呢?

 

Dim nr As Row = Tables("订单明细表").current.delete

不行,显示错误, boolean的值不能转换row


--  作者:狐狸爸爸
--  发布时间:2015/4/8 11:21:00
--  
Tables("订单明细表").current.delete
--  作者:swagger
--  发布时间:2015/4/17 11:18:00
--  
以下是引用狐狸爸爸在2015/4/8 11:21:00的发言:
Tables("订单明细表").current.delete

不行的,刚刚打开的时候可以删,但是如果按了上一张或下一张 (   .Position = .Position + 1  )就删不了,或者点击列表弹出来也删不了,只有新增行可以删

 


--  作者:Bin
--  发布时间:2015/4/17 11:19:00
--  
你切换了焦点,当前行就不是这一行了.  不是很明白你具体的情况
--  作者:swagger
--  发布时间:2015/4/17 11:34:00
--  

如图片

 

 


图片点击可在新窗口打开查看此主题相关图片如下:1846.gif
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/4/17 11:34:34编辑过]

--  作者:Bin
--  发布时间:2015/4/17 11:35:00
--  
没看懂
--  作者:swagger
--  发布时间:2015/4/17 11:42:00
--  
以下是引用Bin在2015/4/17 11:35:00的发言:
没看懂

就是用模拟关联表的话,在添加货品那里要用类似下面的代码 才有效,不然会出现错误

 

Dim nr As Row = Tables("订单明细表").AddNew

nr("订单编号") = Tables("订单表").Current("订单编号")

 

 

但是删除货品的话呢,用什么代码? 如果直接用类似Tables("订单明细表").current.delete 这样会有问题的,譬如在图片上加个“上一张”按钮,点击这个按钮之后,再按删除货品就直接在明细表里面删除,而不是在窗口里面删除了


--  作者:Bin
--  发布时间:2015/4/17 11:43:00
--  
你的是副本表?

那就 Tables("订窗口名_控件名").current.delete