以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 使用加载树时,自动输入无法实现 (http://foxtable.net/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("物料代码") & "\'" ) |