[浏览完整版]
标题：请高手指教
1楼
zdk0915 发表于：2011/6/8 14:51:00使用什么方法能在"表A""件1名称"、"件2名称"、"件3名称"中录入数据后能在"表C"的"名称"、"规格"和"数量"列中自动增加相关数据。请高手指导，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
2楼
zdk0915 发表于：2011/6/8 14:52:00使用什么方法能在"表A""件1名称"、"件2名称"、"件3名称"中录入数据后能在"表B"的"名称"、"规格"和"数量"列中自动增加相关数据。请高手指导，谢谢！
3楼
ybil 发表于：2011/6/8 15:30:001行變3行？規格與數量一樣？
4楼
blackzhu 发表于：2011/6/8 16:14:00逻辑不对吧,是三个名称放三行,如果是三行,那么规格和数量呢怎么弄,还是三个并入一个名称中.
5楼
zdk0915 发表于：2011/6/8 21:30:00是一行变三行，三个名称放在另一个表的名称中，数量和规格延续原数据。
6楼
zdk0915 发表于：2011/6/8 21:39:00设想是从订单（表A）直接转化生产计划单（表B），订单中的产品名称构成最多时有三个件的名称组成，计划单是针对件下的，规格和数量的数据和产品是一样。
7楼
ybil 发表于：2011/6/8 23:34:00用查询表可否:
8楼
ybil 发表于：2011/6/8 23:49:00Dim 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编辑过]
9楼
blackzhu 发表于：2011/6/9 8:15:00Select 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
10楼
狐狸爸爸 发表于：2011/6/9 8:15:00