这段代码哪里不对？请专家指点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'例如这段代码:

Dim f As New Filler

f.SourceTable = DataTables("课程表") '指定数据来源

f.SourceCols = "学期,序号,分类,星期,性质,级别,教师,班级,上课时间,教室,开课日期,选择" '指定数据来源列

'f.filter=[选择]=True

f.Filter = "选择=true"

f.DataTable = DataTables("历史课程表") '指定数据接收表

f.DataCols = "学期,序号,分类,星期,性质,级别,教师,班级,上课时间,教室,开课日期,选择" '指定数据接收列

f.Fill() '填充数据

Dim xh As String

Dim drs As List(Of DataRow)

drs = DataTables("课程表").Select("[选择] = True")

For Each dr As DataRow In drs

xh = dr("序号")

f.SourceTable = DataTables("学习记录") '指定数据来源

f.SourceCols = "序号,姓名" '指定数据来源列

f.Filter = "序号=xh"

f.DataTable = DataTables("历史学习记录") '指定数据接收表

f.DataCols = "序号,姓名" '指定数据接收列

f.Fill() '填充数据

显示如下错误

此主题相关图片如下：360截图20171210160859015.jpg

这不是之前的哪个错误：请看看这个代码出差在哪里？

Dim f As New Filler

f.SourceTable = DataTables("课程表") '指定数据来源

f.SourceCols = "学期,序号,分类,星期,性质,级别,教师,班级,上课时间,教室,开课日期,选择" '指定数据来源列

'f.filter=[选择]=True

f.Filter = "选择=true"

f.DataTable = DataTables("历史课程表") '指定数据接收表

f.DataCols = "学期,序号,分类,星期,性质,级别,教师,班级,上课时间,教室,开课日期,选择" '指定数据接收列

f.Fill() '填充数据

Dim xh As String

Dim drs As List(Of DataRow)

drs = DataTables("课程表").Select("[选择] = True")

For Each dr As DataRow In drs

xh = dr("序号")

f.SourceTable = DataTables("学习记录") '指定数据来源

f.SourceCols = "序号,姓名" '指定数据来源列

f.Filter = "序号=xh"

f.DataTable = DataTables("历史学习记录") '指定数据接收表

f.DataCols = "序号,姓名" '指定数据接收列

f.Fill() '填充数据

f.Filter = "序号=xh"

改成

f.Filter = "序号='" & xh & "'"

主题：这段代码哪里不对？请专家指点