ACCESS数据库中怎样获取某一行中所有字段的值叠加在一起

Access中是用VBA来编写自定义的函数，需要通过Dataobject来调用SQL语句。Access中用VBA编写的函数可以用在Access查询中。

我在Access中的实现方法如下：

新建一个Module，在里面定义自己的函数。函数定义如下：

FunctionAddString(partstringAsString)AsString

'声明查询语句字符串和字段相加的字符串变量

DimoriginalStr,queryStrAsString

'声明ADO的一个记录对象，注意用New来声明并生成实例

DimmyRecordsetAsNewADODB.Recordset

originalStr=""

'查询语句字符串是通过连接零件编号生成的，注意SQL语句需要引号

queryStr="select*frommaterialwhereparts="""+partstring+""""

myRecordset.OpenqueryStr,CurrentProject.Connection

DoWhileNotmyRecordset.EOF

originalStr=originalStr+myRecordset("module")＋","

myRecordset.MoveNext

Loop

'VBA语法，把返回值赋给函数名

AddString=originalStr

EndFunction

看到一个网友解决同样问题的做法，他不是用ADO对象，他用了下面一句：

SetFF=CurrentDb.OpenRecordset(queryStr)

他实际上是隐性用了DAO对象。不过，如果你在VBA中显性声明DAO对象的话，有可能会碰到编译错误，这是因为AccessVBA默认没有包含DAO库的引用。

函数定义好后，就可以用在查询里了，SQL视图下，我的例子的SQL语句如下：

SELECTAddString(parts)ASAllMod,material.parts

FROMmaterial

GROUPBYmaterial.parts

ORDERBYmaterial.parts

MSSQLServer中的例子就很多啦，也是自定义一个函数，然后把自定义的函数用在SQL语句中，我把例子也记下来吧。

createfunctionfn_AddString(@partnumbervarchar(50))

returnsnvarchar(1000)

as

begin

declare@snvarchar(1000)

set@s=''

select@s=@s+module+','frommaterialwhereparts=@partnumber

return@s

end

go

在SQL语句中调用该函数

selectparts,dbo.fn_AddString(parts)asAllModfrommaterial

groupbyparts

————————————————

版权声明：本文为CSDN博主「gracexu」的原创文章，遵循CC4.0BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/gracexu/article/details/2077079

解决excel如何使表格中的数字自动叠加的步骤如下：

1.我们在表格里输入100 20 30 20选中A B C D E单元格。

2.随后点击《公式》--《自动求和》，E单元格就自动求和成功得出170。

3.当公式已生效，点击求和成功的E单元即可看到公式。

4.当自动求和设置成功，那么我们可以改数字，比如将20改成10，那么自动求和的单元格数字就会自动得出正确的求和160。这样就解决了excel如何使表格中的数字自动叠加的问题了。