Foxtable(狐表)用户栏目专家坐堂 → 删除子表行非常慢处是什么原因?


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

主题:删除子表行非常慢处是什么原因?

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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2018/2/12 11:31:00 [只看该作者]

谢谢有点甜老师,问题是解决了,但是我在工料单价子表工料明细中,出入库子表库明细中,都需要用同样的方法调用工料单价,还是按这个代码,这两个就不行了

static pid As Double = -1

If e.Col.name = "工料一类" Then

    If pid <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("工料单价") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "'"

        tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列

        tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据来源列

        tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|工料计划价" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid = e.Row("项目id")

    End If

End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 12:04:00 [只看该作者]

1、改换成你原本的代码,能否正常调用?

 

2、是不是你逻辑有问题?你工料明细表,有项目id的值,并且正确吗?


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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2018/2/12 13:45:00 [只看该作者]

1、改换成原来代码正常运行
2、逻辑关系很简单,有项目ID,当工料单价是组合单价或组合机械时有工料明细。

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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2018/2/12 14:02:00 [只看该作者]

在出入库子表库明细中,需要引用多个目录树,出现错误提示
此主题相关图片如下:1.jpg
按此在新窗口浏览图片

代码如下:

''库明细表工料一类列目录树主表绑定项目ID

static pid As Double = -1

If e.Col.name = "工料一类" Then

    If pid <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("工料单价") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "'"

        tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列

        tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID" '指定数据来源列

        tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid = e.Row("项目id")

    End If

End If

 

 

'库明细表规格列目录树主表绑定工料ID

static pid As Double = -1

If e.Col.name = "规格" Then

     If pid <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("规格明细") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"

        tb.TreeCols = "规格" '指定用于生成目录树的列

        tb.SourceCols = "规格" '指定数据来源列

        tb.ReceiveCols = "规格" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid = e.Row("项目id")

    End If

End If

[此贴子已经被作者于2018/2/12 14:02:55编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 14:50:00 [只看该作者]

static pid As Double = -1

If e.Col.name = "工料一类" Then

    If pid <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("工料单价") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "'"

        tb.TreeCols = "工料一类|工料二类|工料名称" '指定用于生成目录树的列

        tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID" '指定数据来源列

        tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid = e.Row("项目id")

    End If

End If

 

 

'库明细表规格列目录树主表绑定工料ID

static pid1 As Double = -1


If e.Col.name = "规格" Then

     If pid1 <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("规格明细") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"

        tb.TreeCols = "规格" '指定用于生成目录树的列

        tb.SourceCols = "规格" '指定数据来源列

        tb.ReceiveCols = "规格" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid1 = e.Row("项目id")

    End If

End If

 


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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2018/2/12 15:37:00 [只看该作者]

第二个好像有问题

'库明细表规格列目录树主表绑定工料ID

static pid1 As Double = -1


If e.Col.name = "规格" Then

     If pid1 <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("规格明细") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"

        tb.TreeCols = "规格" '指定用于生成目录树的列

        tb.SourceCols = "规格" '指定数据来源列

        tb.ReceiveCols = "规格" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid1 = e.Row("项目id")

    End If

End If


是不是红色部分写错了

tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/12 16:31:00 [只看该作者]

运行提示什么错误?

如果id列类型是整数类型,就去掉单引号

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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2018/2/12 16:51:00 [只看该作者]

1、测试了一下,还是不稳定,多点击几遍(一般3个项目)后,目录树就会混,比如:清单子表清单明细,将筛选树逐个选后,再选目录树就混了,同样是图木舒克项目出现不同的目录树
图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/2/12 16:57:05编辑过]

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


加好友 发短信
等级:童狐 帖子:250 积分:1813 威望:0 精华:0 注册:2012/6/28 13:53:00
  发帖心情 Post By:2018/2/12 17:04:00 [只看该作者]

以下是引用chengjingliang在2018/2/12 15:37:00的发言:
第二个好像有问题,显示空表或只显示一种材料的规格

'库明细表规格列目录树主表绑定工料ID

static pid1 As Double = -1


If e.Col.name = "规格" Then

     If pid1 <> e.Row("项目id") Then

        Dim tb As New DropTreeBuilder

        tb.SourceTable = DataTables("规格明细") '指定目录树表

        tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"

        tb.TreeCols = "规格" '指定用于生成目录树的列

        tb.SourceCols = "规格" '指定数据来源列

        tb.ReceiveCols = "规格" '指定数据接收列

        e.Col.DropTree = tb.Build()

        pid1 = e.Row("项目id")

    End If

End If


是不是红色部分写错了

tb.TreeFilter="项目id='" & e.Row("项目id") & "' and 编号= '" & e.Row("工料ID") & "'"




图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/2/12 17:05:05编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 17:07:00 [只看该作者]

上传实例测试。如果改成你原来的代码,是否正常?

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