Question

怎么利用代码循环得到access数据库里的表的前2位字母 构造sql语句

数据表名如下图，LINE表结构如下图，POINT表结构如下图，我想通过sql代码执行，批量更新Line表里的“起点管顶高”和“终点管顶高”字段内容起点管顶高（计算方式：point表的地面高程-line表的起始埋深）和终点管顶高（计算方式：point表的地面高程-line表的终止埋深）我的代码：'*****************************分割线***************************DoCmd.SetWarnings False Dim dbs As Database Dim tdf As TableDef Dim strsql As String Dim strName As String Set dbs = CurrentDb For Each tdf In dbs.TableDefs strName = tdf.Name DoCmd.RunSQL "UPDATE & LEFT(strName,2) &_LINE INNER JOIN & LEFT(strName,2) &_POINT ON & LEFT(strName,2) &_LINE.起始物探点号 = & LEFT(strName,2) &_POINT.物探点号 SET & LEFT(strName,2) &_LINE.起点管顶高程 = [& LEFT(strName,2) &_POINT].[地面高程]-[& LEFT(strName,2) &_LINE].[起始埋深]" MsgBox "操作已执行完毕！", vbInformation + vbOKOnly Next MsgBox "操作执行完毕"'*****************************分割线***************************请问为什么不能执行，？？？谢谢指点





Answer 1

先把SQL写好，外部调试通。
一句话搞定，根本不需要循环。