窗口外部数据源加载数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口外部数据源加载数据

共有4392人关注过本帖树形打印复制链接主题：窗口外部数据源加载数据

kaituozhe

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/12 19:58:00 [只看该作者]

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：
详细错误信息：
标准表达式中数据类型不匹配。
提示这个是什么意思

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/12 20:02:00 [只看该作者]

比如，你的加载条件的日期列，本应这样写 "日期 = #1991-01-01#" 写成了这样 "日期 = '1991-01-01'"

kaituozhe

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2234 积分：15278 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/10/12 20:07:00 [只看该作者]

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("产品表", "客户名称|产品名称")
trv.Nodes.Insert("显示所有行",0)

Dim Filter As String = ""
Dim Value() As String
Value = e.Node.FullPath.Split("\")
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[客户名称] = '" & Value(0) & "'"
        Case 1
            Filter = "[客户名称] = '" & Value(0) & "' And [产品名称] = '" & Value(1) & "'"
            End Select
End If
Tables("订单").DataTable.loadFilter = Filter
Tables("订单").DataTable.load

订单与产品表关联关系，关联字段是产品名称

窗口table 绑定表为产品_订单表

目标是想在目录中双击客户名称或产品名称，窗口table 显示相应的订单明细，内部数据源时没有什么问题，现在是外部数据源