主题：模拟关联表增加新行问题

窗口中要点击订单明细表才能增加相应行，如果不点击明细表，则会在明细表增加空行，这个是什么原因

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

 

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

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

删除行呢？

 

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

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

Tables("订单明细表").current.delete

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

 

你切换了焦点,当前行就不是这一行了.  不是很明白你具体的情况

如图片

 

 

此主题相关图片如下：1846.gif

没看懂

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

 

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

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

 

 

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

你的是副本表?