以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]临界生统计数据填充报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=142577)

--  作者：cqlpjks --  发布时间：2019/10/31 11:21:00 --  [求助]临界生统计数据填充报错 此主题相关图片如下：报错.png 临界生统计数据填充时报错，没找到原因，请指教！谢谢！

--  作者：有点蓝 --  发布时间：2019/10/31 11:34:00 --   勾选“显示详细信息”，看是哪个事件代码有问题，把代码贴出来

--  作者：cqlpjks --  发布时间：2019/10/31 11:36:00 --   \'数据填充 For Each bb As String In DataTables("成绩库").GetValues("部别", "[年级]= \'" & tjnj & "\'And 类别 = \'" & tjlb & "\'")          Dim ldr As DataRow = DataTables("目标设置").Find("部别 = \'\'" & bb & "\'\' And 年级 = \'" & tjnj & "\'And 类别 = \'" & tjlb & "\'And 市县级 = \'市级\'")     Dim lkxs As Double = ldr("重点B") + dr("专科B")     Dim lkxx As Double = ldr("重点B") - dr("专科B")     For Each lbh As String In DataTables("成绩库").GetValues("编号","总分 >= \'"& lkxx &"\'And 总分 < \'"& lkxs &"\'And 类别 = \'"& tjlb &"\'And 年级 = \'" & tjnj & "\'And 部别 = \'" & bb & "\'")         For Each Km As String In Kms             Dim f As New Filler             f.SourceTable = DataTables("成绩库")\'指定数据来源             f.DataTable = DataTables(Km & tjnj &"级"& tjlb &"重点线上下"& dr("专科B") &"分名册")\'指定数据接收表             f.Filter = "([编号] = \'"& lbh &"\')" \'填充条件             f.Fill()         Next     Next Next

--  作者：有点蓝 --  发布时间：2019/10/31 11:40:00 --       Dim ldr As DataRow = DataTables("目标设置").Find("部别 = \'" & bb & "\' And 年级 = \'" & tjnj & "\'And 类别 = \'" & tjlb & "\'And 市县级 = \'市级\'")

--  作者：cqlpjks --  发布时间：2019/10/31 11:43:00 --   谢谢！是我代码检查不仔细。