Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请帮忙

1楼
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编辑过]
2楼
狐狸爸爸 发表于: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

3楼
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
4楼
shixia 发表于:2009/2/27 11:16:00

谢谢

共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 3 queries.