以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  sql  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73147)
--  作者：bagabaga
--  发布时间：2015/8/13 12:05:00
--  sql
请教以下程序出错：
cmd.C
If My.Computer.Keyboard.CtrlKeyDown
    cmd.CommandText = "S-elect 实收,year(日期) as 年,收入,支出 From(S-ELECT 项目名称,实收,日期 From {材料进货单} where 实收 " >0 & dd  & " 科目 = \'" & Vars("km") & "\') As A " _
    & "INNER JOIN {项目费用表} As B ON a.项目名称 = b.项目名称 "
    dt = cmd.ExecuteReader()
    Dim trv As WinForm.TreeView = e.form.Controls("TreeView1")
    trv.BuildTree(dt,"收入|支出")
end if
--  作者：大红袍
--  发布时间：2015/8/13 12:08:00
--  

1、报什么错；

 

2、弹出看看

 

msgbox(cmd.CommandText)
--  作者：大红袍
--  发布时间：2015/8/13 12:11:00
--  
"S-elect 实收,year(日期) as 年,收入,支出 From (S-ELECT 项目名称,实收,日期 From {材料进货单} where 实收 > " & dd  & " and 科目 = \'" & Vars("km") & "\') As A "  & " INNER JOIN {项目费用表} As B ON a.项目名称 = b.项目名称 "