以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请帮忙  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1955)
--  作者：shixia
--  发布时间：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

Next

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:收文.table

[此贴子已经被作者于2009-2-27 10:57:11编辑过]
--  作者：狐狸爸爸
--  发布时间：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

Next
--  作者：czy
--  发布时间：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
--  发布时间：2009/2/27 11:16:00
--  

谢谢