请教代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教代码问题

共有8869人关注过本帖树形打印复制链接主题：请教代码问题

temblar

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：313 积分：2913 威望：0 精华：0 注册：2012/7/20 16:04:00

请教代码问题 发帖心情

Post By：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

lin_hailun

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6708 积分：34304 威望：0 精华：11 注册：2012/8/18 23:10:00

Post By：2012/10/12 15:57:00 [只看该作者]

dr = dt.DataTable.Find("[姓名] = '" & tr("支持对象") & "'")

这句代码，应该对查找以后的dr做一次判断

if dr isnot Nothing then

end if

szp2012

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：202 积分：1683 威望：0 精华：0 注册：2011/6/17 16:07:00

Post By：2012/10/13 16:25:00 [只看该作者]

dr = dt.DataTable.Find("[姓名] = '" & tr("支持对象") & "'")
改为

dr = dt.Find("[姓名] = '" & tr("支持对象") & "'") 试试

temblar

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：313 积分：2913 威望：0 精华：0 注册：2012/7/20 16:04:00

Post By：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

正解！导入的文件里有个姓名不对，加上判断没问题了谢谢

下一主题 >> << 上一主题

主题：请教代码问题