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事件中。
另,Select Top 1 a.[课程] from {课程安排表} a where a.[已经选中] = '1' 这段代码已经在SQL窗口中执行通过
请帮忙查错!
[此贴子已经被作者于2014-12-4 11:26:18编辑过]