以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]如何使表B根据表A某列的变化而动态加载?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53346)

--  作者:hzcaqjf
--  发布时间:2014/7/5 16:51:00
--  [求助]如何使表B根据表A某列的变化而动态加载?
表B动态加载条件是:表B"产品"名称 = 表A当前行"产品"名称
项目中表B与外部数据源中的表B为同一个表
A表中DataColChanged代码:
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "产品"
        If dr("产品") IsNot Nothing Then
            DataTables("表B").LoadFilter = "产品 = \'" & dr("产品") & "\'"
            DataTables("表B").Load
        End If
end select
结果,表A"产品"列变化时,表B一条数据未加载.
用Fill方法也不行:
DataTables("表B").Fill("Select * From {表B} Where 产品 = \'" & dr("产品") & "\'","数据源名称")
求解.
[此贴子已经被作者于2014-7-5 16:54:22编辑过]

--  作者:逛逛
--  发布时间:2014/7/5 17:04:00
--  

    试试:

 

        If Not dr.IsNull("产品")  Then

            DataTables("表B").LoadFilter = "产品 = \'" & dr("产品") & "\'"
            DataTables("表B").Load
        End If

--  作者:hzcaqjf
--  发布时间:2014/7/5 17:09:00
--  
逛逛大师,也不行呀.
--  作者:Bin
--  发布时间:2014/7/5 17:14:00
--  
没道理,请上例子.
--  作者:逛逛
--  发布时间:2014/7/5 17:18:00
--  
用对话框弹一下看
--  作者:hzcaqjf
--  发布时间:2014/7/5 17:32:00
--  
刚才新建了示例,能够加载的.
可能是别的原因.我再查一下.
麻烦您们了.