专家坐堂-未设置对象变量或 With 块变量Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  未设置对象变量或 With 块变量  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126864)

--  作者：yetle
--  发布时间：2018/10/30 14:21:00
--  未设置对象变量或 With 块变量

For Each ar As DataRow In Tables("原材料加工_table2").DataTable.Select("原材料加工单号 = \'" & Tables("原材料加工_table1").current("原材料加工单号") & "\' ")

Dim br = DataTables("大货用量表").find("物料基本信息_物料ID = \'" & ar("用量信息_上级") & "\' and 物供号 = \'" & ar("物供号") & "\'")
Dim yr = Tables("原材料加工_table3").DataTable.find("物料基本信息_物料ID = \'" & br("物料基本信息_物料ID") & "\' and 物供号 = \'" & ar("物供号") & "\'")
If br IsNot Nothing AndAlso yr Is Nothing Then
Dim nr As Row = Tables("原材料加工_table3").addnew

nr("原材料加工单号") = Tables("原材料加工_table1").current("原材料加工单号")
nr("物料基本信息_物料名称") = br("物料基本信息_物料名称")
nr("物料基本信息_物料编码") = br("物料基本信息_物料编码")
nr("物料配色") = br("物料配色")
nr("物供号") = br("物供号")
nr("物料基本信息_布封") = br("物料基本信息_布封")

nr("需求数") = br("采购应订数")
End If

Next

--  作者：有点甜
--  发布时间：2018/10/30 14:41:00
--
For Each ar As DataRow In Tables("原材料加工_table2").DataTable.Select("原材料加工单号 = \'" & Tables("原材料加工_table1").current("原材料加工单号") & "\' ")

    Dim br = DataTables("大货用量表").find("物料基本信息_物料ID = \'" & ar("用量信息_上级") & "\' and 物供号 = \'" & ar("物供号") & "\'")
    If br IsNot Nothing Then
        Dim yr = Tables("原材料加工_table3").DataTable.find("物料基本信息_物料ID = \'" & br("物料基本信息_物料ID") & "\' and 物供号 = \'" & ar("物供号") & "\'")
        Dim nr As Row = Tables("原材料加工_table3").addnew

        nr("原材料加工单号") = Tables("原材料加工_table1").current("原材料加工单号")
        nr("物料基本信息_物料名称") = br("物料基本信息_物料名称")
        nr("物料基本信息_物料编码") = br("物料基本信息_物料编码")
        nr("物料配色") = br("物料配色")
        nr("物供号") = br("物供号")
        nr("物料基本信息_布封") = br("物料基本信息_布封")


        nr("需求数") = br("采购应订数")
    End If

Next