一个关于SQL语句的难题出现了,请大侠现身

dianamei 2013-09-12 11:55:20
问题是这样的 有没办法把一张表里指定的字段读取出来。比如说 一张表有A B C D E F G H 字段
VFP控件上有勾选框 选取要读取的字段 每个字段都有个checkbox,用户需要这个字段的话就勾选这个字段

比如 用户勾选了 A B E F
就把表里 A B E F 字段读取出来
其他不予理会

可以解决吗?

请赐教!!
...全文
477 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
lygcw9602 2013-09-12
  • 打赏
  • 举报
回复
*假设表中有10个字段,对应10个复选框(复选框的标题,即表中字段名),表单中添加一个按钮(或者将下面代码写在表单的合适事件中)
CFIELD=[]
FOR I=1 TO 10 && 假如有10个字段
    CHECK=[CHECK]+TRANSFORM(I)
    CFIELD=CFIELD+IIF(THISFORM.&CHECK..VALUE=1,THISFORM.&CHECK..CAPTION+[,],[])
ENDFOR
CFIELD=LEFT(CFIELD,LEN(CFIELD)-1)
CFIELD=[SELECT ]+CFIELD+[ FROM T]
EXECSCRIPT(CFIELD)
十豆三 2013-09-12
  • 打赏
  • 举报
回复
例子: lcSelectStr='' if thisform.check1.value=1 && 字段1对应的 Checkbox lcSelectStr=lcSelectStr+',字段1' endif if thisform.check2.value=1 && 字段2对应的 Checkbox lcSelectStr=lcSelectStr+',字段2' endif ...... if thisform.checkN.value=1 && 字段N对应的 Checkbox lcSelectStr=lcSelectStr+',字段N' endif if empty(lcSelectStr) messagebox('没有选择字段!',48,'信息提示') return endif lcSelectStr='select '+substr(lcSelectStr,2)+' from 表名' &lcSelectStr.

2,749

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧