- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教代码问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24383)
-- 发布时间：2012/10/12 14:24:00
-- 请教代码问题
请教如下代码是不是有错误？
Dim dt As Table = Tables("积分总览_table1")
For Each tr As Row In Tables("统计").Rows
Dim dr As DataRow
dr = dt.DataTable.Find("[姓名] = \'" & tr("支持对象") & "\'")
dr("考核积分") = dr("考核积分") + dr("考核加分")
dr("市场部积分") = tr("总分") +dr("考核积分")
dr("考核加分") = 0
Next
dt.DataTable.save()
出现如下错误提示，找不到原因，请教各位
此主题相关图片如下：a.jpg
-- 发布时间：2012/10/12 15:57:00
--
dr = dt.DataTable.Find("[姓名] = \'" & tr("支持对象") & "\'")
这句代码，应该对查找以后的dr做一次判断
if dr isnot Nothing then
end if
-- 发布时间：2012/10/13 16:25:00
--
dr = dt.DataTable.Find("[姓名] = \'" & tr("支持对象") & "\'")
改为
dr = dt.Find("[姓名] = \'" & tr("支持对象") & "\'") 试试
-- 发布时间：2012/10/16 15:35:00
--
以下是引用lin_hailun在2012-10-12 15:57:00的发言：
dr = dt.DataTable.Find("[姓名] = \'" & tr("支持对象") & "\'")
这句代码，应该对查找以后的dr做一次判断
if dr isnot Nothing then
end if
dr = dt.DataTable.Find("[姓名] = \'" & tr("支持对象") & "\'")
这句代码，应该对查找以后的dr做一次判断
if dr isnot Nothing then
end if
正解！ 导入的文件里有个姓名不对，加上判断没问题了 谢谢