主题：请帮忙

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

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

这样试试：

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

谢谢