以文本方式查看主题
- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗口不加载数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94568)
|
-- 作者:zhangjian222200
-- 发布时间:2016/12/27 9:19:00
-- 窗口不加载数据
窗口表“男生报名页_tablebmnvsb”的doubleclickrowheader,设置代码如下:
\'从"会员资料"表,提取报名或被报名人的个人资料信息 Dim PD03 As String = Tables("男生报名页_Tablebmnvsb").Current("女_编号") forms("女简历").open() With DataTables("女简历_Tablenvszl") .LoadTop = 4 .LoadPage = 0 \'.LoadOrder = "注册日期 Desc" .LoadFilter = "[会员编号] = " & PD03 .Load() End With
女简历,模式窗口,正常打开,但是窗口表:“女简历_tablenvszl”,不加载数据,关闭窗口“女简历”,提示:不存在“女简历_tablenvszl”的datatable
.NET Framework 版本:2.0.50727.3655 Foxtable 版本:2016.7.29.1 错误所在事件:男生报名页_Tablebmnvsb,DoubleClickRowHeader 详细错误信息: 未将对象引用设置到对象的实例。
|
-- 作者:有点色
-- 发布时间:2016/12/27 9:24:00
--
这段代码,要写到模式窗口的afterload事件
With DataTables("女简历_Tablenvszl")
.LoadTop = 4
.LoadPage = 0
\'.LoadOrder = "注册日期 Desc"
.LoadFilter = "[会员编号] = " & PD03
.Load()
End With
|
-- 作者:有点色
-- 发布时间:2016/12/27 9:25:00
--
如果需要参数传递,就这样写
Dim PD03 As String = Tables("男生报名页_Tablebmnvsb").Current("女_编号")
vars("pd03") = pd03
forms("女简历").open()
AfterLoad事件
With DataTables("女简历_Tablenvszl")
.LoadTop = 4
.LoadPage = 0
\'.LoadOrder = "注册日期 Desc"
.LoadFilter = "[会员编号] = " & vars("PD03")
.Load()
End With
|
-- 作者:zhangjian222200
-- 发布时间:2016/12/27 9:49:00
--
改了,没有任何提示,我设置了全局代码传递数据,还是没有数据加载(表数据我检查了,“女_编号”、“会员编号”是存在且对应的)
窗口表“男生报名页_tablebmnvsb”的doubleclickrowheader,设置代码如下:
\'从"会员资料"表,提取报名或被报名人的个人资料信息 nvsbh = Tables("男生报名页_Tablebmnvsb").Current("女_编号") forms("女简历").open()
女简历,模式窗口,正常打开,模式窗口的afterload事件: With DataTables("女简历_Tablenvszl") .LoadTop = 4 .LoadPage = 0 \'.LoadOrder = "注册日期 Desc" .LoadFilter = "[会员编号] = " & nvsbh .Load() End With
此主题相关图片如下:未命名2.jpg

|
-- 作者:有点色
-- 发布时间:2016/12/27 9:51:00
--
你左边的表示什么类型的table?如何绑定的?
|
-- 作者:zhangjian222200
-- 发布时间:2016/12/27 9:53:00
--
这是项目文件 已删除
[此贴子已经被作者于2016/12/27 10:43:27编辑过]
|
-- 作者:有点色
-- 发布时间:2016/12/27 10:07:00
--
不是写到表格的afterLoad事件,你要写到窗口的AfterLoad事件。
With DataTables("女简历_Tablenvszl") .LoadTop = 4 .LoadPage = 0 \'.LoadOrder = "注册日期 Desc" .LoadFilter = "[会员编号] = \'" & nvsbh & "\'" .Load() End With
|
-- 作者:zhangjian222200
-- 发布时间:2016/12/27 10:27:00
--
双击第一行表头会弹出错误,点继续,可以正常提取数据 双击其他行表头,正常 咋回事? 
此主题相关图片如下:未命名3.jpg

[此贴子已经被作者于2016/12/27 10:32:34编辑过]
|
-- 作者:有点色
-- 发布时间:2016/12/27 10:31:00
--
我测试没问题。
报什么错?截图说明。
|
-- 作者:zhangjian222200
-- 发布时间:2016/12/27 10:37:00
--
此主题相关图片如下:未命名3.jpg

|