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


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

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

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
窗口外部数据源加载数据  发帖心情 Post By:2015/10/12 18:08:00 [显示全部帖子]

在窗口afterload中设计一个加载树用于加载产品与客户列表,在窗口中增加了一个table控件,希望能够在加载树中双击某种产品,table控件能够显示此种产品销售所有的价格、数量、日期等情况,产品列表与订单列表都是外部源,产品列表加载了全部数据,订单列表没有加载数据


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 18:20:00 [显示全部帖子]

窗口afterload事件中的代码如下:

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

TreeView1控件NodeMouseDoubleClick中代码

Dim Filter As String
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
    Select Case e.Node.Level
        Case 0
            Filter = "[客户名称] = '" & dr("客户名称") & "'"
        Case 1
            Filter = "[客户名称] = '" & dr("客户名称") & "' And [产品名称] = '" & dr("产品名称") & "'"
           End Select
End If
Tables("订单表").Filter = Filter

 

以产品列表及订单列表都是内部数据源


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 19:15:00 [显示全部帖子]

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

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 19:16:00 [显示全部帖子]

这是什么原因

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 19:19:00 [显示全部帖子]

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:窗口,产品表,TreeView1,NodeMouseDoubleClick
详细错误信息:
此行已从表中移除并且没有任何数据。BeginEdit() 将允许在此行中创建新数据

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 19:26:00 [显示全部帖子]

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

这段代码是否有问题,产品表是外部数据源表,加载了全部数据,打开窗口时,提示

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


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望: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
错误所在事件:
详细错误信息:
标准表达式中数据类型不匹配。
提示这个是什么意思

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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望: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 显示相应的订单明细,内部数据源时没有什么问题,现在是外部数据源

 


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 20:12:00 [显示全部帖子]

双击目录时会有以下提示,是什么原因

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


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


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/12 20:19:00 [显示全部帖子]

那是什么原因呀,

 


 回到顶部
总数 24 1 2 3 下一页