共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:00dim 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
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]