[求助]临界生统计数据填充报错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'数据填充

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()

主题：[求助]临界生统计数据填充报错