以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  使用加载树时，自动输入无法实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128862)
--  作者：3076469014
--  发布时间：2018/12/17 8:37:00
--  使用加载树时，自动输入无法实现
老师：使用加载树时，B表数据无法引用过去，我的代码需要怎么修改。

父表：
Select Case e.DataCol.Name
    Case "物料描述","规格型号","单位","单价"
        Dim Filter As String = "[物料代码] = \'" & e.DataRow("物料代码") & "\'"
        Dim drs As List(Of DataRow) = DataTables("工程BOM").Select(Filter)
        For Each dr As DataRow In drs
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        Next
End Select

子表：
If e.DataCol.Name = "物料代码" Then \'
    Dim dr As DataRow
    dr = DataTables("物料信息").Find("物料代码 = \'" & e.DataRow("物料代码") & "\'" )
    If dr IsNot Nothing 
        e.DataRow("物料描述") = dr("物料描述")
        e.DataRow("规格型号") = dr("规格型号")
        e.DataRow("单位") = dr("单位")
        e.DataRow("单价") = dr("单价")
    End If
End If
--  作者：有点甜
--  发布时间：2018/12/17 8:47:00
--  

dr = DataTables("物料信息").Find("物料代码 = \'" & e.DataRow("物料代码") & "\'" )

 

改成

 

dr = DataTables("物料信息").sqlFind("物料代码 = \'" & e.DataRow("物料代码") & "\'" )