请帮忙 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请帮忙

共有19857人关注过本帖树形打印复制链接主题：请帮忙

shixia

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：759 积分：7038 威望：0 精华：1 注册：2008/9/2 20:04:00

请帮忙

Post By：2009/2/27 10:51:00 [只看该作者]

我想把收文中责任单位列中凡是＂网上文件＂的内容的单元格内容全部删除，下面的代码在命令中运行后没有作用，不知错在那里，请帮忙．

dim dr as DataRow

Dim i As Integer

dr=DataTables("收文").DataRows(i)

for i = 0 To DataTables("收文").DataRows.count-1

if dr("责任单位") <> "网上文件" then

Continue For

end if

dr("责任单位")=nothing

下载信息 [文件大小：下载次数： ]
点击浏览该文件:收文.table

[此贴子已经被作者于2009-2-27 10:57:11编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/2/27 10:58:00 [只看该作者]

dim dr as DataRow

Dim i As Integer

for i = 0 To DataTables("收文").DataRows.count-1
dr=DataTables("收文").DataRows(i)

if dr("责任单位") <> "网上文件" then

Continue For

end if

dr("责任单位")=nothing

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2009/2/27 11:00:00 [只看该作者]

这样试试：

Dim drs As List(Of DataRow)
drs = DataTables("收文").Select("[责任单位] = '网上文件'")
For Each dr As Datarow In drs
dr("责任单位")=nothing
Next

shixia

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：759 积分：7038 威望：0 精华：1 注册：2008/9/2 20:04:00

Post By：2009/2/27 11:16:00 [只看该作者]

谢谢

主题：请帮忙