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


  共有4387人关注过本帖树形打印复制链接

主题:窗口外部数据源加载数据

帅哥哟,离线,有人找我吗?
kaituozhe
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/13 7:50:00 [只看该作者]

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "产品名称 = " & e.Table.Current("产品名称") 
    If  DataTables("订单").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("订单").AppendLoad(Filter) '则追载此订单的订单明细
    End If
End If

是否是这句代码的问题,把注释了就没有问题了,


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/13 8:18:00 [只看该作者]

目前目录中只能显示已加载的订单明细,不能显示全部,怎么显示全部呢,双击某种产品时能够显示这种产品所有订单,不论是否加载(不要考虑是否与客户匹配),该怎么处理,我加了

If e.Table.Current IsNot Nothing Then
Dim Filter As String = "产品= " & e.Table.Current("产品")
If DataTables("订单").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
DataTables("订单").AppendLoad(Filter) '则追载此订单的订单明细
End If
End If

然后就提示

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:
详细错误信息:
标准表达式中数据类型不匹配。


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/13 8:19:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:产品.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/13 8:20:00 [只看该作者]

关联的外部数据源传不上

 


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/13 8:20:00 [只看该作者]

添加附件 上传附件 错误:文件类型不正确

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/10/13 8:57:00 [只看该作者]

 Dim Filter As String = "产品名称 = '" & e.Table.Current("产品名称")  & "'"

......


Dim Filter As String = "产品= '" & e.Table.Current("产品") & "'"


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 9:06:00 [只看该作者]

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "产品 = '" & e.Table.Current("产品") & "'"
    If DataTables("订单").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
        DataTables("订单").AppendLoad(Filter) '则追载此订单的订单明细
    End If
End If

 回到顶部
帅哥哟,离线,有人找我吗?
Hyphen
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2015/10/13 9:11:00 [只看该作者]

不能全部显示,是不是外部表设置了加载的行数


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/13 11:46:00 [只看该作者]

按照27楼的方法可以了,

父表和子表同步加载之三 中的代码是错误的,建议改一下。是否能够更进一步,这样我选择多次后会发现加载的数据很多,是否选择某产品时订单表中的数据保留,不再选择这个了数据就移除


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/13 11:48:00 [只看该作者]

If e.Table.Current IsNot Nothing Then
    Dim Filter As String = "产品 = '" & e.Table.Current("产品") & "'"
   
    DataTables("订单").LoadFilter = Filter
    DataTables("订单").Load
End If


 回到顶部
总数 41 上一页 1 2 3 4 5 下一页