[浏览完整版]
标题：如何快速删除表中的"0"?
1楼
woodiy 发表于：2009/7/11 11:38:00
此主题相关图片如下：qq截图未命名.jpg
如何才能快速删除表中的"0"值，
2楼
狐狸爸爸 发表于：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
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
3楼
狐狸爸爸 发表于：2009/7/11 11:47:00我把这个功能做到菜单中算了。
4楼
yangming 发表于：2009/7/11 11:51:00以下是引用狐狸爸爸在2009-7-11 11:47:00的发言：
这是最好了,呵呵
我把这个功能做到菜单中算了。
5楼
woodiy 发表于：2009/7/11 11:52:00是的，谢谢！
6楼
woodiy 发表于：2009/7/11 11:54:00此主题相关图片如下：qq截图未命名.jpg
7楼
woodiy 发表于：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截图未命名.jpg8楼
lxl 发表于：2009/7/11 15:27:00
最后一行End If 改成Next9楼
mr725 发表于：2009/7/11 15:31:00For 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
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
10楼
yangming 发表于：2009/7/11 16:49:00For Each c As DataCol In DataTables("某表").DataCols
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
你两处用到"For ",当然要有两个"Next"与它配了,呵,说明楼主不理解这段代码的意思,还是先看几遍帮助再动手为好
If c.IsNumerc Then
For Each r As DataRow In DataTables("某表").DataCols
你两处用到"For ",当然要有两个"Next"与它配了,呵,说明楼主不理解这段代码的意思,还是先看几遍帮助再动手为好