VB6代码打印报告 [英] VB6 code to print the report

问题描述

我有以下代码来打印报告，但如果报告错误，则嵌套if条件:不支持join操作，如何为以下代码过滤查询:

i have the following code to print the report but with nested if condition which reports errors as :the join operation is not supported how can filter my querry for the following code:

sql ="SELECT Ilaka.Ilakaname，HealthFacility.healthfacilitycode，HealthFacility.Healthfacilityname，"
    sql = sql& "总和(HMIS32_Vaccination.Vaccinated_bcg)为Vaccinated_bcg，"
    sql = sql& "总和(HMIS32_Vaccination.Vaccinated_dpthb1)作为Vaccinated_dpthb1，"
    sql = sql& "总和(HMIS32_Vaccination.Vaccinated_dpthb2)作为Vaccinated_dpthb2，"
    sql = sql& " Sum(OPD_Morbidity1.b01ChickenPooxM)+ Sum(OPD_Morbidity1.b01ChickenPooxF)作为ChickenPox，"
    sql = sql& "总和(OPD_Morbidity1.b16HepatitisBM)+总和(OPD_Morbidity1.b16HepatitisBF)"

   如果(GetRIlaka = 0)并且(GetRHealth ="0")然后
   转到:
   其他
      如果(GetRIlaka<> 0)并且(GetRHealth ="0")然后
      转到b:
      其他
      转到c:
      如果结束
   如果结束
   
答:
    sql = sql& " FROM((((((Databank_district内部联接OPD_Morbidity1 ON Databank_district.Databank_districtid = OPD_Morbidity1.Databank_districtid)''
    sql = sql& "内联接HMIS32_Vaccination ON cstr(Databank_district.Databank_districtid)= cstr(HMIS32_Vaccination.Databank_districtid))"
    sql = sql& "在cstr(Databank_district.Healthfacilityid)= cstr(HealthFacility.Healthfacilityid)上的INNER JOIN HealthFacility"
    sql = sql& " INNER JOIN Ilaka ON cint(HealthFacility.parenthealthfacilityid)= cint(Ilaka.Ilakaid)"
    sql = sql& " AND Databank_district.submitteddate_y =" & GetRYear

    sql = sql& " Group By Ilaka.Ilakaname，HealthFacility.healthfacilitycode，HealthFacility.Healthfacilityname"
    sql = sql& "按HealthFacility订购.HealthFacility名称为ASC"
 转到aa:
   
b:
    sql = sql& " FROM((((((Databank_district内部联接OPD_Morbidity1 ON Databank_district.Databank_districtid = OPD_Morbidity1.Databank_districtid)''
    sql = sql& "内联接HMIS32_Vaccination ON cstr(Databank_district.Databank_districtid)= cstr(HMIS32_Vaccination.Databank_districtid))"
    sql = sql& "在cstr(Databank_district.Healthfacilityid)= cstr(HealthFacility.Healthfacilityid)上的INNER JOIN HealthFacility"
    sql = sql& " INNER JOIN Ilaka ON cint(HealthFacility.parenthealthfacilityid)= cint(Ilaka.Ilakaid)"
    sql = sql& " AND Databank_district.submitteddate_y =" & GetRYear
   
    sql = sql& " AND Ilaka.ilakaid =" & GetRIlaka
 
    sql = sql& " Group By Ilaka.Ilakaname，HealthFacility.healthfacilitycode，HealthFacility.Healthfacilityname"
    sql = sql& "按HealthFacility.HealthFacility名称ASC订购"
   
 转到aa:
   
c:
   
    sql = sql& " FROM((((((Databank_district内部联接OPD_Morbidity1 ON Databank_district.Databank_districtid = OPD_Morbidity1.Databank_districtid)''
    sql = sql& "内联接HMIS32_Vaccination ON cstr(Databank_district.Databank_districtid)= cstr(HMIS32_Vaccination.Databank_districtid))"
    sql = sql& "在cstr(Databank_district.Healthfacilityid)= cstr(HealthFacility.Healthfacilityid)上的INNER JOIN HealthFacility"
    sql = sql& " INNER JOIN Ilaka ON cint(HealthFacility.parenthealthfacilityid)= cint(Ilaka.Ilakaid)"
    sql = sql& " AND Databank_district.submitteddate_y =" & GetRYear
   
    sql = sql& " AND Ilaka.ilakaid =" & GetRIlaka
    sql = sql& " AND HealthFacility.HealthFacilityid ='" & GetRHealth& "'<
 
    sql = sql& " Group By Ilaka.Ilakaname，HealthFacility.healthfacilitycode，HealthFacility.Healthfacilityname"
    sql = sql& "按HealthFacility订购.HealthFacility名称为ASC"
   
  
aa:
    db.LoadData(sql)

 计数器= 5

   使用db.rs
      如果db.rs.RecordCount<> 0然后
          如果.EOF = False，那么

sql = "SELECT Ilaka.Ilakaname,HealthFacility.healthfacilitycode, HealthFacility.Healthfacilityname,"
    sql = sql & " Sum(HMIS32_Vaccination.Vaccinated_bcg) as Vaccinated_bcg,"
    sql = sql & " Sum(HMIS32_Vaccination.Vaccinated_dpthb1) as Vaccinated_dpthb1,"
    sql = sql & " Sum(HMIS32_Vaccination.Vaccinated_dpthb2) as Vaccinated_dpthb2,"
    sql = sql & " Sum(OPD_Morbidity1.b01ChickenPooxM) + Sum(OPD_Morbidity1.b01ChickenPooxF) as ChickenPox,"
    sql = sql & " Sum(OPD_Morbidity1.b16HepatitisBM) + Sum(OPD_Morbidity1.b16HepatitisBF) as HepatitisB"

     If (GetRIlaka = 0) And (GetRHealth = "0") Then
     GoTo a:
     Else
        If (GetRIlaka <> 0) And (GetRHealth = "0") Then
        GoTo b:
        Else
        GoTo c:
        End If
    End If
   
a:
    sql = sql & " FROM (((Databank_district INNER JOIN OPD_Morbidity1 ON Databank_district.Databank_districtid = OPD_Morbidity1.Databank_districtid)"
    sql = sql & " INNER JOIN HMIS32_Vaccination ON cstr(Databank_district.Databank_districtid) = cstr(HMIS32_Vaccination.Databank_districtid))"
    sql = sql & " INNER JOIN HealthFacility ON cstr(Databank_district.Healthfacilityid) = cstr(HealthFacility.Healthfacilityid))"
    sql = sql & " INNER JOIN Ilaka ON cint(HealthFacility.parenthealthfacilityid) = cint(Ilaka.Ilakaid)"
    sql = sql & " AND Databank_district.submitteddate_y = " & GetRYear

    sql = sql & " Group By Ilaka.Ilakaname,HealthFacility.healthfacilitycode,HealthFacility.Healthfacilityname"
    sql = sql & " Order By HealthFacility.HealthFacilityname ASC"
  GoTo aa:
   
b:
    sql = sql & " FROM (((Databank_district INNER JOIN OPD_Morbidity1 ON Databank_district.Databank_districtid = OPD_Morbidity1.Databank_districtid)"
    sql = sql & " INNER JOIN HMIS32_Vaccination ON cstr(Databank_district.Databank_districtid) = cstr(HMIS32_Vaccination.Databank_districtid))"
    sql = sql & " INNER JOIN HealthFacility ON cstr(Databank_district.Healthfacilityid) = cstr(HealthFacility.Healthfacilityid))"
    sql = sql & " INNER JOIN Ilaka ON cint(HealthFacility.parenthealthfacilityid) = cint(Ilaka.Ilakaid)"
    sql = sql & " AND Databank_district.submitteddate_y = " & GetRYear
   
    sql = sql & " AND Ilaka.ilakaid = " & GetRIlaka
 
    sql = sql & " Group By Ilaka.Ilakaname,HealthFacility.healthfacilitycode,HealthFacility.Healthfacilityname"
    sql = sql & " Order By HealthFacility.HealthFacilityname ASC"
   
  GoTo aa:
   
c:
   
    sql = sql & " FROM (((Databank_district INNER JOIN OPD_Morbidity1 ON Databank_district.Databank_districtid = OPD_Morbidity1.Databank_districtid)"
    sql = sql & " INNER JOIN HMIS32_Vaccination ON cstr(Databank_district.Databank_districtid) = cstr(HMIS32_Vaccination.Databank_districtid))"
    sql = sql & " INNER JOIN HealthFacility ON cstr(Databank_district.Healthfacilityid) = cstr(HealthFacility.Healthfacilityid))"
    sql = sql & " INNER JOIN Ilaka ON cint(HealthFacility.parenthealthfacilityid) = cint(Ilaka.Ilakaid)"
    sql = sql & " AND Databank_district.submitteddate_y = " & GetRYear
   
    sql = sql & " AND Ilaka.ilakaid = " & GetRIlaka
    sql = sql & " AND HealthFacility.HealthFacilityid = '" & GetRHealth & "'"
 
    sql = sql & " Group By Ilaka.Ilakaname,HealthFacility.healthfacilitycode,HealthFacility.Healthfacilityname"
    sql = sql & " Order By HealthFacility.HealthFacilityname ASC"
   
  
aa:
    db.LoadData (sql)

  counter = 5

    With db.rs
        If db.rs.RecordCount <> 0 Then
            If .EOF = False Then

 

推荐答案

已删除

这篇关于VB6代码打印报告的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！