- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]LSY老师在不？帮忙搞一下这个导入订单的代码，谢谢！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45583)
-- 发布时间：2014/2/4 20:46:00
-- [求助]LSY老师在不？帮忙搞一下这个导入订单的代码，谢谢！
1、想把订单表里面符合条件的订单导入到出货表里面
2、把出货表里面符合条件的出货导入到对账单里面
不知道该如何写代码
没有明细
直接下单，直接出货，无明细单
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:出货管理.rar |
-- 发布时间：2014/2/5 9:27:00
--
我没有开发版，打不开你的例子。
-- 发布时间：2014/2/5 11:31:00
--
不好意思，昨天还还是注意了的。但是由于看不到区别，谁知就又上传了开发版项目。
刚刚又做了一个商业版的。
请求帮助！
谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:出货商业版.rar |
-- 发布时间：2014/2/5 11:34:00
--
不知道这样的做法，简单的出货管理，是不是相率比较高，比较实用？
出完货的，就移除掉。在表里面看不到。
当然，不是删除掉。表里面就剩下没出货或者出货不够数的订单。
删除掉了，就对不了帐了。
-------------------------
订单不用明细单，因为，有的没有订单号，一行就是一个订单就是了。
不知道出货那里是不是一定要加个明细单？或者也不用？简单点的。
-------------------------
用数据库的原因，是由于有3台电脑在操作这个出货管理。
一个下单，一个出货，一个财务对账。
[此贴子已经被作者于2014-2-5 11:37:48编辑过]
-- 发布时间：2014/2/5 21:15:00
--
老师应该没有来，再顶一下。希望大家能够帮帮忙。谢谢！
-- 发布时间：2014/2/6 11:00:00
--
请老师帮忙，顶一下～
-- 发布时间：2014/2/6 11:54:00
--
你在订单表里面加个"标记"列,用于判断.
然后代码这样写!
Tables("出货").StopRedraw
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[已下单]=True And 标记 Is Null")
For Each dr As DataRow In drs
Dim r As Row = Tables("出货").AddNew
r("下单日期")=dr("下单日期")
r("客户名称")=dr("客户名称")
r("客户型号")=dr("客户型号")
r("订单数量")=dr("订单数量")
r.Save
dr("标记")="已出货"
dr.Save
Next
Tables("出货").ResumeRedraw
-- 发布时间：2014/2/6 11:54:00
--
你的问题描述的不是很清晰
出货导入那里可以用：filler数据填充的
-- 发布时间：2014/2/6 12:02:00
--
以下是引用jianjingmaoyi在2014-2-6 11:54:00的发言：
你在订单表里面加个"标记"列,用于判断.
你在订单表里面加个"标记"列,用于判断.
然后代码这样写!
Tables("出货").StopRedraw
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("[已下单]=True And 标记 Is Null")
For Each dr As DataRow In drs
Dim r As Row = Tables("出货").AddNew
r("下单日期")=dr("下单日期")
r("客户名称")=dr("客户名称")
r("客户型号")=dr("客户型号")
r("订单数量")=dr("订单数量")
r.Save
dr("标记")="已出货"
dr.Save
Next
Tables("出货").ResumeRedraw
假如说一次出货数量不够呢？别人要100，我出了2次，一次30，一次65，在出货表里面怎么自动记录？
-- 发布时间：2014/2/6 12:07:00
--
所以说你是要设计一个出货明细表滴