以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口不加载数据  (http://foxtable.net/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
图片点击可在新窗口打开查看