第一段代码用狐表语句实现的,目的是查询一下学员信息表中,查询一下,‘在校’的学员中,在报名缴费表中还有多少记录没有结课。
结果第一段代码成功,用sql语句替代,无法实现。
For Each dr As DataRow In DataTables("学员信息").SQLS elect("是否在校 = '在校' And 分校编号='1008'")
Dim i As Integer=DataTables("报名缴费").SQLCompute("Count(*)", "学员编号 = '" & dr("学员编号") & "' And 课程状态<>'已结课'")
If i <>0 Then
output.show(dr("学员编号") & "+" & dr("学员姓名"))
End If
Next
Dim cmd As new SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "S elect {学员信息}.学员编号 ,{学员信息}.学员姓名 F orm {学员信息} INNER JOIN {报名缴费} ON {学员信息}.学员编号 = {报名缴费}.学员编号 w here {学员信息}.是否在校 = '在校' And {学员信息}.分校编号 = '1008' and (S elect COUNT(*) F ROM {报名缴费} w here {报名缴费}.学员编号 = {学员信息}.学员编号 And {报名缴费}.课程状态 <> '已结课') = 0 "
dt = cmd.ExecuteReader()