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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码哪里不对？请专家指点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110827)

--  作者：digger_deng
--  发布时间：2017/12/10 16:19:00
--  这段代码哪里不对？请专家指点

\'例如这段代码:
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() \'填充数据
Next
显示如下错误

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

--  作者：有点甜
--  发布时间：2017/12/10 17:00:00
--

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=110808&skin=0

--  作者：digger_deng
--  发布时间：2017/12/11 11:59:00
--
这不是之前的哪个错误：请看看这个代码出差在哪里？
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() \'填充数据
Next

--  作者：有点甜
--  发布时间：2017/12/11 12:24:00
--

f.Filter = "序号=xh"

改成

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

--  作者：digger_deng
--  发布时间：2017/12/11 17:31:00
--
谢谢专家