- 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=3526)
-- 发布时间：2009/7/11 11:38:00
-- 如何快速删除表中的"0"?
此主题相关图片如下：qq截图未命名.jpg
如何才能快速删除表中的"0"值，
-- 发布时间：2009/7/11 11:46:00
--
复制到命令窗口执行：
For Each c As DataCol In DataTables("某表").DataCols
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
If r.IsNull(c.Name) = False And r(c.Name) = 0 Then
r(c.Name) = Nothing
End If
Next
End If
End IF
-- 发布时间：2009/7/11 11:47:00
--
我把这个功能做到菜单中算了。
-- 发布时间：2009/7/11 11:51:00
--
以下是引用狐狸爸爸在2009-7-11 11:47:00的发言：
这是最好了,呵呵
我把这个功能做到菜单中算了。
-- 发布时间：2009/7/11 11:52:00
--
是的，谢谢！
-- 发布时间：2009/7/11 11:54:00
--
此主题相关图片如下：qq截图未命名.jpg
-- 发布时间：2009/7/11 11:55:00
--
复制到命令窗口执行：
For Each c As DataCol In DataTables("某表").DataCols
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
If r.IsNull(c.Name) = False And r(c.Name) = 0 Then
r(c.Name) = Nothing
End If
Next
End If
End IF
此主题相关图片如下：qq截图未命名.jpg
For Each c As DataCol In DataTables("某表").DataCols
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
If r.IsNull(c.Name) = False And r(c.Name) = 0 Then
r(c.Name) = Nothing
End If
Next
End If
End IF
此主题相关图片如下：qq截图未命名.jpg-- 发布时间：2009/7/11 15:27:00
--
最后一行End If 改成Next-- 发布时间：2009/7/11 15:31:00
--
For Each c As DataCol In DataTables("某表").DataCols
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
If r.IsNull(c.Name) = False And r(c.Name) = 0 Then
r(c.Name) = Nothing
End If
Next
End If
End IF \'...**** 改成： Next
-- 发布时间：2009/7/11 16:49:00
--
For Each c As DataCol In DataTables("某表").DataCols
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
你两处用到"For ",当然要有两个"Next"与它配了,呵,说明楼主不理解这段代码的意思,还是先看几遍帮助再动手为好