[求助]这段代码应该如何编写 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]这段代码应该如何编写

共有11202人关注过本帖树形打印复制链接主题：[求助]这段代码应该如何编写

kensou11111

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

加好友

发短信

等级：童狐帖子：255 积分：2353 威望：0 精华：0 注册：2011/4/25 9:23:00

[求助]这段代码应该如何编写 发帖心情

Post By：2011/5/3 14:58:00 [显示全部帖子]

希望对表中代码及分工相同的行进行合并，将其单机量相加，位号内容合并

图片点击可在新窗口打开查看此主题相关图片如下：qq11.png

我的代码如下：

Dim drs As List(of DataRow)
drs = DataTables("表1").Select("功能 = '可选功能'")
For Each dr As DataRow In drs
    Dim gr As DataRow
    gr = DataTables("表1").find("功能 = '基础功能' and 代码 = dr("代码") And 分工 = dr("分工")")
    If gr IsNot Nothing Then
        gr("单机量") = gr("单机量") + dr("单机量")
        gr("位号") = gr("位号") & dr("位号")
    End If
Next

出现如下提示，应该如何修改。还有如果没有功能这一列，有应该如何编写呢？