Declare cur_zs Cursor For
The SELECT KD, ZS, LL, PZB FROM VGTZS WHERE VGTXH=: as_xh and KD=0 ORDER BY VGTXH, KD, ZS, PZB;
The Open cur_zs;
The Fetch cur_zs Into: ldc_kd, : ldc_zs, ldc_ll, : ldc_pzb;
The Do While the SQLCA. SQLCODE=0
If ldc_syzs=ldc_zs Then
Ldc_x2=229 + (ldc_pzb - 1) * 3748/4
Ldc_y2=1640 - (ldc_ll) * 10 * 300
Tab_1. Tabpage_3. Dw_9. Modify (' the create line (band=detail x1="' + String (ldc_x1) + '" y1="' + String (ldc_y1) + '" x2="' + String (ldc_x2) + '" y2="' + String (ldc_y2) + & amp;
'" pen style="0" pen. Width="5" pen. Color="255" background. The mode="2". The background color="255")')
Ldc_x1=ldc_x2
Ldc_y1=ldc_y2
The Else
If ldc_y1 & gt; 0 Then
Tab_1. Tabpage_3. Dw_9. Modify (' Create text (band=detail alignment="0" text="' + String (ldc_syzs," 0 ") + '" border="0" color="255" x="' + String (ldc_x2) + & amp;
'" y="+ String (ldc_y2) +' 40" width="" height=" 200 ". The font face="bold". The font height="to 8". The font weight="400" '+ & amp;
'the font. The family="0" the font. Pitch="2" is the font. Charset="134" background. The mode="1")')
End the If
Ldc_x1=229 + (ldc_pzb - 1) * 3748/4
Ldc_y1=1640 - (ldc_ll) * 10 * 300
Ldc_syzs=ldc_zs
The Fetch cur_zs0 Into: ldc_zs, ldc_ll, : ldc_pzb;
End the if
Loop
CodePudding user response:
Suggest to learnThe SQLCA. SQLCODE=1
The SQLCA. SQLCODE=100
The SQLCA. SQLCODE=0
CodePudding user response: