以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教高手帮我看看呀  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28688)

--  作者:85016568
--  发布时间:2013/2/12 18:53:00
--  请教高手帮我看看呀

一.在库存与明细窗口的关闭按键里我想加:在关闭保存之前能不能加上在数量列里如果有0的数量行先删除在保存关闭?

二.在客户销售单与明细导入按件,在导入按键时,如果库存表没有与客户销售单中输入的品名列,颜色列不相匹配,请弹出提示对话框(库存没有此品名与颜色)

三.在确认出库按钮:在确认出库时,如果能在出库明细表前打个勾且库存明细中与出库明细中的(1.2.3.4.5.6.7.8.)列中相对应的库存明细数量值删除.

 

 

以上三问题,请教高手帮忙写一下代码.

               感谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:库存与库存明细.table


--  作者:小桂子
--  发布时间:2013/2/12 18:58:00
--  
这个我也不会,帮顶一下。
请问楼主,你学了多久了??厉害。。。。

--  作者:85016568
--  发布时间:2013/2/12 19:00:00
--  
也是才学
--  作者:程兴刚
--  发布时间:2013/2/12 19:08:00
--  

1、在离开行时判断数量列的值,为0时禁止离开该行,没必要在保存时才来逐个检测,效率低。

2、3:没看明白您的意思,好像您的思路有问题。


--  作者:kolen
--  发布时间:2013/2/12 20:57:00
--  
一、的代码:
\' 删除数量列中空值或0值的行.
   For Each dr As Row In Tables("库存表").rows
 If  dr.IsNull("数量") OrElse dr("数量") = 0 Then
Tables("库存表").Rows.Delete(dr.Index) \'删除满足空值或0值的行
End If 
Next

-----但还是建议考虑4楼程老师的建议。

--  作者:lin_hailun
--  发布时间:2013/2/16 11:56:00
--  
 呃……看了下,果真没有看懂你的意思。图文并茂比较好理解些,楼主。