以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  表2根据表1的当前行【产品编号】动态加载  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48268)
--  作者：fubblyc
--  发布时间：2014/3/26 12:33:00
--  表2根据表1的当前行【产品编号】动态加载

各位老师中午好，我遇到了一个问题，弄了一个上午没做出来。。。

我想实现 点击【 窗口2_订单表 】的某一行，能让绑定在【产品表】的记录窗口显示 这一行 的 产品编号  的产品信息

我知道【产品表】已经加载数据的方法：

在 【 窗口2_订单表 】的currentchanged 如下这样写：

Dim t As Table = Tables("产品表")
    With Tables("窗口2_订单表")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "产品编号 = " & .Current("产品编号")
        End IF
    End With
End If

 

但是如果【产品表】数据很大，不想加载进狐表里。那应该用LoadFilter 和 load 动态加载,但是一直没写对，不知道怎么写。。。

[此贴子已经被作者于2014-3-26 12:33:40编辑过]
--  作者：Bin
--  发布时间：2014/3/26 14:06:00
--  
Dim dt As dataTable = dataTables("产品表")
    With Tables("窗口2_订单表")
        If .Current Is Nothing Then
            dt.LoadFilter = "false"
            dt.load 
        Else
            dt.LoadFilter = "产品编号 = " & .Current("产品编号")
            dt.load 
        End IF
    End With
End If
--  作者：fubblyc
--  发布时间：2014/3/26 14:21:00
--  

Bin老师，一直出现这个问题：

 

 

在将 nvarchar 值 \'100931店\' 转换成数据类型 int 时失败。

 

我如下这样做也是一样。。。

Dim dt As dataTable = dataTables("产品表")
    With Tables("窗口2_订单表")
        If .Current Is Nothing Then
            dt.LoadFilter = "[_Identify] Is Null"

            dt.load 
        Else
            dt.LoadFilter = "产品编号 = " & .Current("产品编号")
            dt.load 
        End IF
    End With
End If
[此贴子已经被作者于2014-3-26 14:22:04编辑过]
--  作者：lsy
--  发布时间：2014/3/26 14:24:00
--  

产品编号，是数值型，

100931店  包含汉字。
--  作者：狐狸爸爸
--  发布时间：2014/3/26 14:24:00
--  

到今天，你都还知道表达式中的字符型应该用单引号括起来：

 

dt.LoadFilter = "产品编号 = \'" & .Current("产品编号") & "\'"