Foxtable(狐表) → 用户栏目 → 专家坐堂 → 加载问题


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

主题：加载问题
帅哥哟，离线，有人找我吗？
seal51
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		加载问题  发帖心情 Post By：2021/4/3 10:30:00 [显示全部帖子]

产品表窗口的AfterLoad里的代码：
Tables("产品表").SetHeaderRowHeight(40) '设置标题行的高度
Tables("产品表").Select(0, 0) 
'Tables("产品表").Sort = "产品ID"
Tables("产品表").ExtendLastCol = True '最后一列自动拉伸填充

e.Form.Controls("FileManager1").Font = New Font("宋体",11)

''隐藏文件管理器中的目录,清除和管理命令
Dim fm As WinForm.FileManager = e.Form.Controls("FileManager1")
fm.AddFolderCommand.Visible = False
fm.ClearCommand.Visible = False
fm.ManagerCommand.Visible = False
''隐藏图片管理器中的清除和管理命令
Dim fl As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
fl.ClearCommand.Visible = False
fl.ManagerCommand.Visible = False

产品表为外部表， 不加载数据， [_Identify] is null的时候
打开产品表报错
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：窗口,产品信息,AfterLoad
详细错误信息：
Invalid parameters for Select method.
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/4/3 11:31:00 [显示全部帖子]

产品表没有加载， 那么打开订单表， 产品是空的， 订单里的产品如何加载呢
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/4/3 11:35:00 [显示全部帖子]

产品表设计成分页加载，为何FileManager里的文件闪烁个不停

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/4/3 11:47:00 [显示全部帖子]

窗口里只有afterload里有代码， 是表里的代码有问题吗？如何排查呢
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/4/3 11:52:00 [显示全部帖子]

好了

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/4/3 11:56:00 [显示全部帖子]

以下是引用有点蓝在2021/4/3 11:34:00的发言：
不要使用关联和表达式，改为数据列，然后使用代码获取：http://www.foxtable.com/webhelp/topics/1453.htm

只要使用了关联和表达式，就无法按需加载了，对吧
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/4/3 12:19:00 [显示全部帖子]

哦， 麻烦了， 我在大量使用关联，表达式
看了要重新做系统了
 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/9 8:31:00 [显示全部帖子]

现有系统中主要使用了关联表和表达式，数据越来越多，有无解决方案

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/9 9:04:00 [显示全部帖子]

帮助中主要介绍用关联表和表达式，所以这样设计，现在修改，工作量太大了

 回到顶部
帅哥哟，离线，有人找我吗？
seal51
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1837 积分：12984 威望：0 精华：0 注册：2013/6/10 9:23:00 		  发帖心情 Post By：2021/7/9 9:21:00 [显示全部帖子]

如果用数据表， 比如产品列表，每个和产品有关的表，都需要加入以下代码，不是很繁琐
Select Case e.DataCol.Name
    Case "产品名称","产品图号","产品材料","产品规格"
Dim Filter As String = "[产品ID] = '" & e.DataRow("产品ID") & "'"
    Dim drs As List(Of DataRow) = DataTables("组装明细单").Select(Filter)
    For Each dr As DataRow In drs
        dr("产品名称") = e.DataRow("产品名称")
dr("产品图号") = e.DataRow("产品图号")
dr("产品材料") = e.DataRow("产品材料")
dr("产品规格") = e.DataRow("产品规格")
    Next
End Select
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询