- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请帮忙实现功能 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13435)
-- 发布时间：2011/10/12 8:54:00
-- [求助]请帮忙实现功能
问题1、窗口输入订单，对应的订单明细为空时，不能增加新的订单，不保存订单；订单明细列“产品编号”，“数量”，“单价”为空值 时不能保存订单明细。
问题2、在订单及订单明细保存后，打开查询表，同步刚保存的订单数据。
本人菜鸟，觉得FOXTABLE挺好的，很想学，请高手帮忙一下。谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目134.table |
-- 发布时间：2011/10/12 9:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目126.rar |
提示窗口类型最好改为模式窗口。
[此贴子已经被作者于2011-10-12 9:06:46编辑过]
-- 发布时间：2011/10/12 11:07:00
-- 狐爸问题又才来了
狐老爸回复真快!谢谢.但又有问题了，把订单删除后会出错，增加不了订单了。
此主题相关图片如下：1.jpg
-- 发布时间：2011/10/12 11:15:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目126.rar |
-- 发布时间：2011/10/12 11:29:00
-- 多谢
多谢狐爸,已经没了错误提示,但问题还是存在.删除所有订单后,在窗口仍不能增加订单.
-- 发布时间：2011/10/12 11:41:00
--
增加按钮的代码改为：
Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
If r.Isnull("客户编号") OrElse r.Isnull("日期") OrElse r.Isnull("订单编号") Then
Return
Else
r.save()
End If
If Tables("订单.订单明细").Count = 0 Then
Return
End If
End If
Tables("订单").AddNew()