主题：[求助]这段代码应该如何编写

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

 

此主题相关图片如下：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

 

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

此主题相关图片如下：qq12.png

gr = DataTables("表1").find("功能 = '基础功能' and 代码 ='" & dr("代码") &'" And 分工 ='" & dr("分工") &"'"

楼主看看这个：

 

http://help.foxtable.com/topics/1284.htm

 

电子设计要求很严谨，Ω写成KΩ，肯定达不到设计要求，软件开发也一样。

看了下帮助，再试了下，正确的代码应该是

gr = DataTables("表1").find("功能 = '基础功能' and 代码 ='" & dr("代码") &"' And 分工 ='" & dr("分工") &"'")

 

虽然对了，但对这一堆单双引号和& 知其然不知其所以然

 

另外，如果没有“功能”这一列，要如何实现同样功能呢？

功能列不是有吗?

怎么看不明白呀