以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104715)

--  作者:huli503
--  发布时间:2017/8/3 17:03:00
--  [求助]
各位老师,我后台有两个表,通过partTemplateId找到关联的taskTemplateMasterId,然后再通过找到的taskTemplateMasterId查询到TemplateName
图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/8/3 17:52:00
--  

1、不是可以用查询表?

 

http://www.foxtable.com/webhelp/scr/2321.htm

 

http://www.foxtable.com/webhelp/scr/2322.htm

 

2、你现在需要做什么功能?你直接设置关联,引用父表的值?

 

3、如果是要查找,一个个的一步步的查找就行了 http://www.foxtable.com/webhelp/scr/0396.htm

 


--  作者:huli503
--  发布时间:2017/8/3 20:00:00
--  
是这样,第一步:通过零件的ID号找到第一张表的partTemplateId 48,并找到了48下面的taskTemplateMaster Id号,第二步:通过找到的taskTemplateMaster Id号,在另外一张表上查找与taskTemplateMaster Id对应的制作工序内容,这两步想通过一个动作一次完成。
--  作者:huli503
--  发布时间:2017/8/3 20:01:00
--  
这两张表没有建立关联
--  作者:有点甜
--  发布时间:2017/8/3 20:29:00
--  
以下是引用huli503在2017/8/3 20:00:00的发言:
是这样,第一步:通过零件的ID号找到第一张表的partTemplateId 48,并找到了48下面的taskTemplateMaster Id号,第二步:通过找到的taskTemplateMaster Id号,在另外一张表上查找与taskTemplateMaster Id对应的制作工序内容,这两步想通过一个动作一次完成。

 

你find多次,或者select多次,不就好了?

 

http://www.foxtable.com/webhelp/scr/0396.htm

 

http://www.foxtable.com/webhelp/scr/0400.htm

 


--  作者:huli503
--  发布时间:2017/8/3 21:26:00
--  
Dim b As Row = Tables("part_work").Current
Dim drs As List(Of DataRow)
drs = DataTables("part_work").Select("[partTemplateId] = \'" & b("partTemplateId")& "\'" )
For Each dr As DataRow In drs
    Output.show(dr("taskTemplateMasterId"))
Next
我通过上面的代码可以遍历出第一张表taskTemplateMaster Id号,不知道怎样写代码通过这些ID号查找第二张表数据,请老师给出一个代码,谢谢。

--  作者:有点甜
--  发布时间:2017/8/3 21:46:00
--  
Dim b As Row = Tables("part_work").Current
Dim drs As List(Of DataRow)
drs = DataTables("part_work").Select("[partTemplateId] = \'" & b("partTemplateId")& "\'" )
For Each dr As DataRow In drs
    Dim fdr As DataRow = DataTables("某表").Find("taskTemplateMasterId = \'" & dr("taskTemplateMasterId") & "\'")
    If fdr IsNot Nothing Then
 
    End If
Next

--  作者:huli503
--  发布时间:2017/8/4 13:13:00
--  
老师帮我看下,零件清单维护_Table3表中只加载找到的一行数据,问题出在什么地方,
图片点击可在新窗口打开查看此主题相关图片如下:11.png
图片点击可在新窗口打开查看
谢谢

--  作者:有点甜
--  发布时间:2017/8/4 14:33:00
--  

改成这样

 

Dim b As Row = Tables("part_work").Current
Dim str As String  = DataTables("part_work").GetComboListString("taskTemplateMasterid", "[partTemplateId] = \'" & b("partTemplateId")& "\'" )
str = str.Replace("|", "\',\'")
DataTables("零件清单维护_Table3").fill("select * from {workTemplateMaster} where taskTemplateMasterid in (\'" & str & "\')", "xx", False)