http://download.

CLOSE ALL
CLEAR

USE TBL1 IN 0
USE TBL2 IN 1

SQL_STR=''
CSTR=''

SELECT A.*,B.BMMC FROM TBL1 A LEFT JOIN TBL2 B ON A.BMBH=B.BMBH INTO CURSOR CUR_TMP

SQL_STR=[SELECT RQ,PZBH,JFJE,DFJE,BMBH]

SELECT [,IIF(BMMC=']+BMMC+[',JFJE-DFJE,00000)]+[ ]+BMMC AS STR_C FROM TBL2 INTO CURSOR TMP

FOR I = 1 TO RECCOUNT()-1
    GO I
    CSTR=CSTR+ALLTRIM(STR_C)
ENDFOR
*?CSTR

SQL_STR=SQL_STR+CSTR+' FROM CUR_TMP M'
*?SQL_STR
EXECSCRIPT(SQL_STR)

经过反复测试，6楼的代码在最后的循环中多了一次，目标表多出了一列空列，要改成上面（红字是改动部份）才行。

请问版主,"SQL_STR=[SELECT RQ,PZBH,JFJE,DFJE,BMBH]"这行代码有何作用呢?本人很少见过这种用法,你能解释一下吗?

6楼的代码是对的,12楼的红字部分(-1)反而是改错了~~~附测试图~
　
　
　

添加个视图可以解决吗？

6楼的代码的确是对的。是我测试用的部门表中多了一条空记录，所以加-1才正常输出。

这是组成select语句的字符串，在此处方括号的作用与引号相同。

解决的方法肯定有多种，用视图也许可以解决问题，但我还中觉得用select语句更好些。
我现在需要表中数据时习惯用select语句按需要提取出来，一般不直接对表进行操作。这样程序更容易移植到多用户状态。

这个余额到底怎么出来的?。。。。。。。。。。。。。。。

[此贴子已经被作者于2019-7-4 18:16编辑过]