共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[讨论] 请大家看看这段代码有什么问题？
1楼
wcs 发表于：2010/3/4 0:04:00dim i2 as integer = 0
for each dr4 as datarow in datatables("审核表").datarows
if dr4.isnull("姓名ID") then
dataTables("审核表").dataRows.Delete(i2)
end if
i2 = i2 + 1
next
“审核表”中有一"姓名ID"列，字符型的
我想如果"姓名ID"列为空的行，就删除该行
如此简单的事，就是看不出问题在哪里。
提示出错的图：
此主题相关图片如下：未命名.jpg
for each dr4 as datarow in datatables("审核表").datarows
if dr4.isnull("姓名ID") then
dataTables("审核表").dataRows.Delete(i2)
end if
i2 = i2 + 1
next
“审核表”中有一"姓名ID"列，字符型的
我想如果"姓名ID"列为空的行，就删除该行
如此简单的事，就是看不出问题在哪里。
提示出错的图：
此主题相关图片如下：未命名.jpg2楼
czy 发表于：2010/3/4 0:28:00即使你的代码不出错，效率也是最差的。
参考：
1、DataTables("审核表").DeleteFor("[姓名ID] Is Null")
2、
Dim drs As List(Of DataRow) = DataTables("审核表").Select("[姓名ID] Is Null")
For n As integer = 0 To drs.Count - 1
drs(n).Delete
Next
参考：
1、DataTables("审核表").DeleteFor("[姓名ID] Is Null")
2、
Dim drs As List(Of DataRow) = DataTables("审核表").Select("[姓名ID] Is Null")
For n As integer = 0 To drs.Count - 1
drs(n).Delete
Next
3楼
程兴刚 发表于：2010/3/4 1:42:00
运行逻辑错误，因为遍历到最后一行的时候，i2+1行已经不存在了！
[此贴子已经被作者于2010-3-4 1:45:01编辑过]
4楼
ssqq 发表于：2010/3/4 9:33:00
5楼
hejfen 发表于：2010/3/4 10:37:00如何使用？
共5 条记录, 每页显示 10 条, 页签:
[1]