- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] Select 选出字段的值，怎么在表达式中用？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60943)
-- 发布时间：2014/12/4 11:21:00
-- [求助] Select 选出字段的值，怎么在表达式中用？
For Each R As Row In Tables("窗口1_Table1").Rows
With R
If ( R("课程") = (Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = \'1\' ) )
.Checked = True
Else
.Checked = False
End If
End With
Next
这段代码报错：
编译错误：Expression expected
错误代码：If ( R("课程") = (Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = \'1\' ) )
现附上项目，代码在项目窗口1的AfterLoad事件中。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目15.rar |
另，Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = \'1\' 这段代码已经在SQL窗口中执行通过
请帮忙查错！
[此贴子已经被作者于2014-12-4 11:26:18编辑过]
-- 发布时间：2014/12/4 11:26:00
--
未见报错啊
-- 发布时间：2014/12/4 11:28:00
--
说明两点：
1我把代码用""给括起来了，不然不让我保存，需要把后加的双引号去除来查错。或把我上面的代码复制进去也可。。。。
2.请在窗口1的事件afterLOAD中找代码。。。
[此贴子已经被作者于2014-12-4 11:29:17编辑过]
-- 发布时间：2014/12/4 11:29:00
--
For Each R As Row In Tables("窗口1_Table1").Rows
With R
If DataTables("课程安排表").Find("已经选中 = \'1\' and 课程 = \'" & r("课程") & "\'") IsNot Nothing Then
.Checked = True
Else
.Checked = False
End If
End With
Next
-- 发布时间：2014/12/4 11:31:00
--
有点甜真是大师啊。我的脑筋还没上路。。。。在foxtable里，不能当是在Oracle或foxpro里。。。。我已经吃过亏了，居然没长记性。。。。再次感谢。。。。