你好,老师
以下的BOM表(黄色标识) 是在Foxtable中。 因为数据庞大,一直下载,影响速度。如何将以下代码修改一下,使其直接从SQL中数据库表BOM表中直接取出 ?谢谢。
Dim pn As String = args(0)
Dim qty As String = args(1)
Dim idx As Integer = args(5)
For Each dr As DataRow In DataTables("BOM").Select("FNumber='" & pn & "'")
Dim ndr As DataRow = DataTables("物料需求").AddNew
ndr("PartNo") = dr("PN")
ndr("Date") = args(3)
ndr("批号") = args(4)
ndr("Demand") = dr("FQty") * qty
ndr("层次") = "第" & idx & "层"
Functions.Execute("sumChild",dr("PN"),ndr("Demand"), args(2), args(3), args(4),idx+1)
Next