- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 预览窗体出现错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125390)
-- 发布时间：2018/9/27 14:23:00
-- 预览窗体出现错误
预览主窗体出现“.NET Framework 版本：2.0.50727.8935
Foxtable 版本：2018.9.9.1
错误所在事件：窗口,主窗体,AfterLoad
详细错误信息：
未找到列 [办理银行]。”提示，请指教，谢谢！！
-- 发布时间：2018/9/27 14:24:00
--
贴出你窗口afterLoad事件的代码
-- 发布时间：2018/9/28 10:33:00
--
DataTables("农户基础数据").AllowEdit = False
\'---------------以下定义村别--------
Dim fll As WinForm.TopicBar = Forms("主窗体").Controls("分类栏")
Dim cb As WinForm.TopicPage = fll.pages("村别")
cb.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别=\'村别\'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
cb.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","村别=\'"& bmmc &"\'") & "户)")
Next
\'Tables("农户基础数据").TopVisibleRow =0
Dim yh As WinForm.TopicPage = fll.pages("办理银行")
yh.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别=\'办理银行\'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
yh.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理银行=\'"& bmmc &"\'") & "户)")
Next
Dim lb As WinForm.TopicPage = fll.pages("办理类别")
lb.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别=\'办理类别\'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
lb.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理类别=\'"& bmmc &"\'") & "户)")
Next
Dim yy As WinForm.TopicPage = fll.pages("办理原因")
yy.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别=\'办理原因\'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
yy.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理原因=\'"& bmmc &"\'") & "户)")
Next
Tables("农户基础数据").TopVisibleRow =0
-- 发布时间：2018/9/28 10:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:江安一折通管理系统.rar |
-- 发布时间：2018/9/28 10:40:00
--
加入msgbox定位出错位置，应该不是你这段代码导致的错误。应该是其它代码
http://www.foxtable.com/webhelp/scr/1485.htm
-- 发布时间：2018/9/28 22:40:00
--
按照老师的方法，问题定位在
Dim yh As WinForm.TopicPage = fll.pages("办理银行")
yh.Links.Clear
For Each bmmc As String In DataTables("词典").GetComboListString("名称","类别=\'办理银行\'","_identify").Split("|")
Dim kg As String = new String("",20-bmmc.Length*2)
yh.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理银行=\'"& bmmc &"\'") & "户)")
Next这段代码我是复制来的，为什么在“村别”处没出现错误，而在“办理银行”处出现了错误提示呢？请指教，谢谢！！
-- 发布时间：2018/9/28 23:02:00
--
农户基础数据表格没有“办理银行”这个列
yh.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理银行=\'"& bmmc &"\'") & "户)")