以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]两张sqlquery表可以设置父子连接关联表吗  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=135430)

--  作者:2474842866
--  发布时间:2019/5/26 13:13:00
--  [求助]两张sqlquery表可以设置父子连接关联表吗

我想将两张表关联起来,两张表数据都是sqlquery写的
但是在窗口afterload事件里写了关联代码,代码如下:
If DataTables("采购系统_tb.1.3.1").DataRows.Count = 0                \'若预警表没有数据
    DataTables("采购系统_tb.1.3.2").LoadFilter = " 商家编码 is null" \'则不加载预警日志
Else
    Dim ids As String
    For Each i As DataRow In DataTables("采购系统_tb.1.3.1").DataRows
        ids = ids & "," & i("商家编码")
    Next
    ids.Trim(",")
    DataTables("采购系统_tb.1.3.2").LoadFilter = "商家编码 in (" & ids & ")"
End If
DataTables("采购系统_tb.1.3.2").Load()

但是实际提示报错,select语句附件有错误,然后关联子表就不显示了,也关联不了,请问如何关联两张表

图片点击可在新窗口打开查看此主题相关图片如下:360截图20190525172318150.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/5/26 15:06:00
--  

 

把你的sql语句写在一起,即可的。具体问题,做一个实例发上来测试。

 

 


--  作者:2474842866
--  发布时间:2019/5/26 16:04:00
--  
sql语句不是各写在每张表的select语句嘛,怎么写在一起?
--  作者:2474842866
--  发布时间:2019/5/26 16:10:00
--  
我第一张表,父子表sqlquery的select语句为:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:codes.txt



--  作者:2474842866
--  发布时间:2019/5/26 16:13:00
--  
我在afterload时间的关联代码:
获取当前焦点表格商家编码
If DataTables("采购系统_tb.1.3.1").DataRows.Count = 0                \'若预警表没有数据
DataTables("采购系统_tb.1.3.2").LoadFilter = " 商家编码 is null" \'则不加载预警日志
Else
Dim ids As String
For Each i As DataRow In DataTables("采购系统_tb.1.3.1").DataRows
ids = ids & ",\'" & i("商家编码") & "\'"
Next
ids.Trim(",")
DataTables("采购系统_tb.1.3.2").LoadFilter = "商家编码 in (" & ids & ")"
End If
DataTables("采购系统_tb.1.3.2").Load()

--  作者:有点甜
--  发布时间:2019/5/26 20:02:00
--  

复杂的sql语句的sqlquery窗口,不能直接使用loadfilter和load。

 

请用fill添加表格数据 http://www.foxtable.com/webhelp/scr/2912.htm

 


--  作者:2474842866
--  发布时间:2019/5/27 11:23:00
--  
你好,老师,我按照提示进行更改了,但是提示select附近有错误,请检查语法或者数据源设置,但我看了没问题啊,代码如下:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:codes.txt



--  作者:有点甜
--  发布时间:2019/5/27 11:47:00
--  

ids.Trim(",")

 

改成

 

ids = "(" & ids.Trim(",") & ")"


--  作者:2474842866
--  发布时间:2019/5/27 12:23:00
--  
改了,虽然不报错了,但是两张表却没有关联:

图片点击可在新窗口打开查看此主题相关图片如下:360截图20190525171642069.jpg
图片点击可在新窗口打开查看



--  作者:有点甜
--  发布时间:2019/5/27 12:36:00
--  
实例发上来测试。