| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 将所有为0的格替换成空 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39063) |
| -- 作者：tj-pacer -- 发布时间：2013/8/14 17:46:00 -- 将所有为0的格替换成空 数据量很大，我把所有的数据在命令窗口乘以1000，但是原先空格都变成0了，怎样将0变回空格。谢谢！ |
| -- 作者：狐狸爸爸 -- 发布时间：2013/8/14 17:51:00 -- if r.isnull("某列") = false then 乘以1000 end if |
| -- 作者：tj-pacer -- 发布时间：2013/8/14 18:00:00 -- 已经承过1000了，想把所有0的数改成空 |
| -- 作者：Bin -- 发布时间：2013/8/14 18:07:00 -- 慢慢循环把等于0的赋值为 nothing 吧 反正你一次性 数据量大慢点就慢点 |
| -- 作者：有点甜 -- 发布时间：2013/8/14 19:40:00 -- 以下是引用tj-pacer在2013-8-14 18:00:00的发言： 已经承过1000了，想把所有0的数改成空 快速清0 或者代码 Dim drs As List(Of DataRow) = DataTables("xxxx").Select("xxxx = \'0\'") For Each dr As DataRow In drs dr("xxxx") = Nothing Next |
| -- 作者：gsnake -- 发布时间：2013/8/14 20:05:00 -- 快速清0
这个快速清零的命令是什么？
|
| -- 作者：程兴刚 -- 发布时间：2013/8/14 20:16:00 -- 以下是引用有点甜在2013-8-14 19:40:00的发言：
快速清0
或者代码
Dim drs As List(Of DataRow) = DataTables("xxxx").Select("xxxx = \'0\'")
For Each dr As DataRow In drs
dr("xxxx") = Nothing
Next 您把人家带沟里去了，应该这样：
Dim drs As List(Of DataRow) = DataTables("xxxx").Select("xxxx = \'0\'")
For Each dr As DataRow In drs
if dr("xxxx") = 0
dr("xxxx") = Nothing
end if
Next |
| -- 作者：有点甜 -- 发布时间：2013/8/14 20:17:00 -- Syscmd.Edit.ClearZero()
|
| -- 作者：tj-pacer -- 发布时间：2013/8/14 22:13:00 -- Done, thank you all so mcuh. |
| -- 作者：逛逛 -- 发布时间：2013/8/14 22:32:00 -- 以下是引用程兴刚在2013-8-14 20:16:00的发言：
您把人家带沟里去了，应该这样：
Dim drs As List(Of DataRow) = DataTables("xxxx").Select("xxxx = \'0\'")
For Each dr As DataRow In drs
if dr("xxxx") = 0
dr("xxxx") = Nothing
end if
Next 好像你后加的那个判断是多余的，因为集合中的数据本来就是按这个条件筛选的。 |