下面红色部分代码怎么实现多个订单编号 对应新增多行呢？
首先师资明细表事件代码
Select e.DataCol.Name
Case "师傅名"
Dim dr As DataRow= DataTables("订单主表").Find("安装师傅 = '" & e.DataRow("师傅名") & "' ")
If dr IsNot Nothing Then '如果找到, 则设置各列内容
e.DataRow("订单编号")= dr ("订单编号")
e.DataRow("施工日期")=dr ("安装日期")
e.DataRow("客户名称")=dr("客户名称")
e.DataRow("客户地址")=dr("客户地址")
Dim filter As String = "(安装师傅 = '" & e.DataRow("师傅名") & "')"
Dim d=Date.Today
d = d.addmonths(-1)
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y,m)) '获取该月的最后一天
e.DataRow("施工面积") = DataTables("订单主表").compute("sum(安装面积)", filter & " And 订单日期 >= #" & dt1 & "# And 订单日期 <= #" & dt2 & "#")
e.DataRow("施工费") = DataTables("订单主表").compute("sum(安装费)", filter & " And 订单日期 >= #" & dt1 & "# And 订单日期 <= #" & dt2 & "#")
End If
Case "数量","施工面积","施工费"
e.DataRow("合计")=e.DataRow("施工面积")*e.DataRow("施工费")
End Select
遍历师傅表里面的全部师傅名字并新增对应的行
Dim Vals As List(of String)
Vals = DataTables("师傅表").GetValues("姓名")
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("师资明细").AddNew()
dr("师傅名") = Vals(i)
Next
怎么实现师资明细表中的数据实现这样的效果呢？
如果订单主表中，安装师傅名字 张三 在一个月内假设有是个安装订单编号
那么 师资明细表中
张三 订单1
张三 订单2
张三 订单3
……
张三 订单10
然后在成其他师傅的名字的订单编号呢？
李四 订单1
王五 订单1
加好友 
发短信
Post By：2018/1/9 15:31:00 [只看该作者]
