主题：[求助] foxtable 改用数据库表

你好，老师

以下的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

老师，还请问一下以下黄色是来自另SQL数据库加一个表 ICBOM中的pn,该如何表示 ？ 谢谢。

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").SQLSelect("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

老师，

这个变量& pn & 来自数据库中的另一个表 ICBOM中。 要查找数据库表 BOM 中的 FNumbe 等于 表 ICBOM中的 pn 。

……