Dim dr As DataRow = DataTables("系统_数据模块").SQLFind("模块名称='" & e.Sender.Name & "'")
If dr IsNot Nothing Then '如果找到的话
Dim Value As String = dr("参数_A")
Dim Value1 As String = dr("参数_B")
Dim Value2 As String = dr("参数_C")
Dim sps() As Char = {"|"}
Dim Names() As String = Value.Split(sps)
For Each Name As String In Names
Dim ndr As Row = Tables("订单_产品清单").AddNew
ndr("产品_分类") = e.Sender.Name
ndr("产品_构件名称") = Name
Next
End If
和下面的代码结果一样
'Dim dr As DataRow = DataTables("系统_数据模块").SQLFind("模板名称='" & e.Sender.Name & "'")
'If dr IsNot Nothing Then '如果找到的话
'Dim str() As String = {"产品效果","服务清单","价格确定","正式订单签约","深化复尺","制造下单","现场保护","微改交底","进场施工"}
'Dim sjd() As String = {"1","2","3","7","5","20","10","10","8"}
'Dim sjb() As String = {"业主|设计","业务|设计|业主","业务|设计|业主","业主|业务","设计|设计主管","设计|跟单|财务","项目经理|业务","项目经理|设计|微改部门","微改|业务|设计"}
'For i As Integer = 0 To 8
'Dim r As Row = Tables("项目进度").AddNew
'r("项目名称") = str(i)
'r("进度_执行天数") = sjd(i)
'r("团队_组员") = sjb(i)
'
'Next
[此贴子已经被作者于2022/4/13 17:39:35编辑过]
加好友 
发短信
Post By：2022/4/13 17:38:00 [只看该作者]
