预览窗体出现错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

预览主窗体出现“.NET Framework 版本：2.0.50727.8935

Foxtable 版本：2018.9.9.1

错误所在事件：窗口,主窗体,AfterLoad

详细错误信息：

未找到列 [办理银行]。”提示，请指教，谢谢！！

贴出你窗口afterLoad事件的代码

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 &"'") & "户)")

'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 &"'") & "户)")

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 &"'") & "户)")

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 &"'") & "户)")

Tables("农户基础数据").TopVisibleRow =0

下载信息 [文件大小：下载次数： ]
点击浏览该文件:江安一折通管理系统.rar

加入msgbox定位出错位置，应该不是你这段代码导致的错误。应该是其它代码

按照老师的方法，问题定位在

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 &"'") & "户)")

这段代码我是复制来的，为什么在“村别”处没出现错误，而在“办理银行”处出现了错误提示呢？请指教，谢谢！！

农户基础数据表格没有“办理银行”这个列

yh.links.add(bmmc,bmmc & kg & "("& DataTables("农户基础数据").Compute("count(_identify)","办理银行='"& bmmc &"'") & "户)")

主题：预览窗体出现错误