Question

国二vfp中，表单命令按钮的click中的程序，显示语法错误，帮忙修改下~

xs="xs"+thisform.text1.value
thisform.grid1.recordsource= ☆
SELECT DISTINCT 销售表.商品号, 商品代码表.商品名, 销售表.一季度利润,;
销售表.二季度利润, 销售表.三季度利润, 销售表.四季度利润;
FROM selldb!部门表 INNER JOIN selldb!销售表;
INNER JOIN selldb!商品代码表 ;
ON 销售表.商品号 = 商品代码表.商品号 ;
ON 部门表.部门号 = 销售表.部门号
and 部门号=thisform.text1.value and 年度=thisform.text2.value into table(xs)" ☆

标记的☆的行 它说有语法错误，但是我都是按答案上写的输入的，我觉得应该是格式错误？或者是什么~~ （补充下，如果把第三行提到第二行，还是格式错误）请高手指教下 谢啦

Answer 1

LOCAL xs
xs= "xs" + thisform.text1.value

thisform.grid1.RecordSource = .Null.

SELECT 销售表.商品号, 商品代码表.商品名, 销售表.一季度利润, 销售表.二季度利润, 销售表.三季度利润, 销售表.四季度利润;
FROM selldb!部门表 INNER JOIN selldb!销售表 ON 部门表.部门号 = 销售表.部门号 ;
INNER JOIN selldb!商品代码表 ON 销售表.商品号 = 商品代码表.商品号;
WHERE 部门表.部门号 = thisform.text1.value AND 销售表.年度 = thisform.text2.value ;
INTO TABLE (xs)

thisform.grid1.RecordSource = xs

追问

按照你这样表格那里什么都显示不出来呀……那个存的xs表有

追答

1.确定表单的数据环境内没有表
2.确定 grid1 的 RecordSourceType = 1
3.把上面代码写到查询按钮的 Click 中
4.我用的 VFP9，没有 VFP6 不知道有没有关系....
5.试试在 thisform.grid1.RecordSource = xs 加一句

SELE (m.xs)
thisform.grid1.RecordSource = xs

追问

问你个问题，在表单的form1的load里面 输入open database ... 是不是可以把数据库添加进数据环境？
还有那个 RecordSourceType 答案里是要选4
那图是答案 我按答案上那“查询”的click输入 说我语法错误。你看看是不是要注意些什么格式？？

追答

1.在表单的form1的load里面 输入open database 并不把数据库添加进数据环境，数据环境是表单的私有数据容器对象，包含系列处理数据库，表，关系的可视化设计IDE。你可以通过属性设置就可以在表单Load之前自动打开要处理的表等，重某方面说，是VFP面向数据库处理的体贴功能。
2.：由于 SQL 语句要赋值给 recordsource （字符型）属性，写代码时要向如下格式。
thisform.grid1.recordsource = "SELECT 销售表.商品号, 商品代码表.商品名, " + ;
" 销售表.一季度利润, 销售表.二季度利润, 销售表.三季度利润, 销售表.四季度利润 " +;
" FROM selldb!部门表 INNER JOIN selldb!销售表 ON 部门表.部门号 = 销售表.部门号 " +;
" INNER JOIN selldb!商品代码表 ON 销售表.商品号 = 商品代码表.商品号 " +;
" WHERE 部门表.部门号 = thisform.text1.value AND 销售表.年度 = thisform.text2.value " +;
" INTO TABLE (xs)"

Answer 2

xs="xs"+thisform.text1.value
thisform.grid1.recordsource= ☆
SELECT DISTINCT 销售表.商品号, 商品代码表.商品名, 销售表.一季度利润,;
销售表.二季度利润, 销售表.三季度利润, 销售表.四季度利润;
FROM selldb!部门表 INNER JOIN selldb!销售表;
INNER JOIN selldb!商品代码表 ;
ON 销售表.商品号 = 商品代码表.商品号 ;
ON 部门表.部门号 = 销售表.部门号 ;
and 部门号=thisform.text1.value and 年度=thisform.text2.value into table(xs)"