以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这段代码应该如何编写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9697)
--  作者：kensou11111
--  发布时间：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

 

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


图片点击可在新窗口打开查看此主题相关图片如下：qq12.png
图片点击可在新窗口打开查看
--  作者：blackzhu
--  发布时间：2011/5/3 15:12:00
--  
gr = DataTables("表1").find("功能 = \'基础功能\' and 代码 =\'" & dr("代码") &\'" And 分工 =\'" & dr("分工") &"\'"
--  作者：狐狸爸爸
--  发布时间：2011/5/3 15:17:00
--  

楼主看看这个：

 

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

 

电子设计要求很严谨，Ω写成KΩ，肯定达不到设计要求，软件开发也一样。
--  作者：kensou11111
--  发布时间：2011/5/3 15:46:00
--  
以下是引用狐狸爸爸在2011-5-3 15:17:00的发言：

楼主看看这个：

 

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

 

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

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

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

 

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

 

另外，如果没有“功能”这一列，要如何实现同样功能呢？
--  作者：blackzhu
--  发布时间：2011/5/3 16:21:00
--  
功能列不是有吗?

正确的应该:

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

只要输入的功能列和代码以及分工的数据一样,底下会自动计算的.
--  作者：tomelly
--  发布时间：2011/5/4 16:10:00
--  

怎么看不明白呀