专家坐堂-老师您好，关于 for each 和delete的问题。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  老师您好，关于 for each 和delete的问题。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=97788)

--  作者：rxfmrqq
--  发布时间：2017/3/18 13:45:00
--  老师您好，关于 for each 和delete的问题。

Dim f As New Filler
f.SourceTable = DataTables("新录入的问题") \'指定数据来源
f.DataTable = DataTables("问题搜索") \'指定数据接收表
f.ExcludeExistValue = True
f.Filter = "回答 Is Not null"
f.Fill() \'填充数据
Dim i As List(of DataRow) = DataTables("新录入的问题").Select("回答 is not null")
For Each dr As DataRow In i
dr("回答").Delete
Next
DataTables("问题搜索").Save()

这串代码中的delete 老师出错，需要返回数字，请问我该如何修改呢？

--  作者：有点蓝
--  发布时间：2017/3/18 15:18:00
--

Dim f As New Filler

f.SourceTable = DataTables("新录入的问题") \'指定数据来源

f.DataTable = DataTables("问题搜索") \'指定数据接收表

f.ExcludeExistValue = True

f.Filter = "回答 Is Not null"

f.Fill() \'填充数据

DataTables("新录入的问题").DeleteFor("回答 is not null")

http://www.foxtable.com/webhelp/scr/0394.htm