还是只有一阶的数据出来,求助!!!自定义函数代码:
Dim nm As String = args(0)
Dim dt As DataTable = args(1)
Dim vl As Single = args(2)
Dim drs As List(of DataRow)
drs = dt.SQLSelect("Ib01 = '" & nm & "'")
For Each dr2 As DataRow In drs
Dim nm1 As String = dr2("Ib03")
Dim vl1 As Single = vl * dr2("Ib04") / dr2("Ib05")
Dim dr1 As DataRow = DataTables("WLXQB").AddNew()
dr1("WLBM") = nm1
dr1("XQSL") = vl1
If dt.SQLSelect("Ib01 = '" & nm1 & "'") IsNot Nothing Then
Functions.Execute("BOMZHYL",nm1,dt,vl1)
End If
Next
填入按钮代码:
DataTables("WLXQB").DataRows.Clear()
For Each dr1 As DataRow In DataTables("CPJHB").DataRows
For Each dr2 As DataRow In DataTables("MRPBOM").SQLSelect("Ib01 = '" & dr1("PH") & "'")
Dim nm As String = dr2("Ib03")
Dim vl As Single = dr1("SL") * dr2("Ib04") / dr2("Ib05")
Dim dr As DataRow = DataTables("WLXQB").AddNew()
dr("WLBM") = nm
dr("XQSL") = vl
If DataTables("MRPBOM").SQLSelect("Ib01 = '" & nm & "'") IsNot Nothing Then
Dim dt As DataTable = DataTables("MRPBOM")
Functions.Execute("BOMZHYL",nm,dt,vl)
End If
Next
Next