- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请高手指教 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=10485)
-- 发布时间：2011/6/8 14:51:00
-- 请高手指教
使用什么方法能在"表A""件1名称"、"件2名称"、"件3名称"中录入数据后能在"表C"的"名称"、"规格"和"数量"列中自动增加相关数据。请高手指导，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2011/6/8 14:52:00
--
使用什么方法能在"表A""件1名称"、"件2名称"、"件3名称"中录入数据后能在"表B"的"名称"、"规格"和"数量"列中自动增加相关数据。请高手指导，谢谢！
-- 发布时间：2011/6/8 15:30:00
--
1行變3行？規格與數量一樣？
-- 发布时间：2011/6/8 16:14:00
--
逻辑不对吧,是三个名称放三行,如果是三行,那么规格和数量呢怎么弄,还是三个并入一个名称中.
-- 发布时间：2011/6/8 21:30:00
--
是一行变三行，三个名称放在另一个表的名称中，数量和规格延续原数据。
-- 发布时间：2011/6/8 21:39:00
--
设想是从订单（表A）直接转化生产计划单（表B），订单中的产品名称构成最多时有三个件的名称组成，计划单是针对件下的，规格和数量的数据和产品是一样。
-- 发布时间：2011/6/8 23:34:00
--
用查询表可否:
-- 发布时间：2011/6/8 23:49:00
--
Dim Sql As String
Sql = "Select [_Identify], 件1名称 As 名称, 规格, 数量 FROM{表A} where 件1名称 >\'\'"
Sql = Sql & " UNION ALL Select [_Identify],件2名称 As 名称, 规格, 数量 FROM{表A} where 件2名称 >\'\'"
Sql = Sql & " UNION ALL Select [_Identify],件3名称 As 名称, 规格, 数量 FROM{表A} where 件3名称 >\'\' ORDER BY [_Identify]"
Dim cmd As New SQLCommand
cmd.CommandText = Sql
Tables("窗口1_Table1").DataSource = cmd.ExecuteReader()
[此贴子已经被作者于2011-6-8 23:53:54编辑过]
-- 发布时间：2011/6/9 8:15:00
--
Select Case e.DataCol.Name
Case "件1名称"
Dim r1 As Row
Dim r As Row = Tables("表B").AddNew()
r1 = Tables("表A").Current
r("名称")=r1("件1名称")
r("规格")=r1("规格")
r("数量")=r1("数量")
End Select
Select Case e.DataCol.Name
Case "件2名称"
Dim r1 As Row
Dim r As Row = Tables("表B").AddNew()
r1 = Tables("表A").Current
r("名称")=r1("件2名称")
r("规格")=r1("规格")
r("数量")=r1("数量")
End Select
Select Case e.DataCol.Name
Case "件3名称"
Dim r1 As Row
Dim r As Row = Tables("表B").AddNew()
r1 = Tables("表A").Current
r("名称")=r1("件3名称")
r("规格")=r1("规格")
r("数量")=r1("数量")
End Select
-- 发布时间：2011/6/9 8:15:00
--
不用SQL也行：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目48.table |