ledangvan > 24-08-19, 12:38 PM
Noname > 24-08-19, 02:39 PM
WHERE (((SoCPChitietIn.SoCT) Is Not Null));
ledangvan > 24-08-19, 11:34 PM
(24-08-19, 02:39 PM)Noname Đã viết: Trong trường hợp 1 mục không có phát sinh thì đầu mục của nó có hiện không?
Nếu không cần luôn thì chỉ việc query report thêm vào
Mã PHP:WHERE (((SoCPChitietIn.SoCT) Is Not Null));
Noname > 25-08-19, 01:35 AM
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Detail
If IsNull(Me.SoCT) Then
Me.NgayCT.Height = 0
Me.Text185.Height = 0
Me.Diengiai.Height = 0
Me.SotienCo.Height = 0
Me.SotienNo.Height = 0
Me.Detail.Height = 0
Else
Me.Detail.Height = 0.926 * 567
Me.NgayCT.Height = 0.926 * 567
Me.Text185.Height = 0.926 * 567
Me.Diengiai.Height = 0.926 * 567
Me.SotienCo.Height = 0.926 * 567
Me.SotienNo.Height = 0.926 * 567
End If
Exit Sub
err_Detail:
MsgBox Err.Description, vbOKOnly
Exit Sub
End Sub
ledangvan > 25-08-19, 09:21 AM
(25-08-19, 01:35 AM)Noname Đã viết: Vậy thì ý tưởng của mình thế này
Nếu Isnull(soct) thì tất cả các đối tượng trong phần detail đều có chiều cao =0.
Ngược lại thì chiều cao của nó = chiều cao (trong properties) * 567
Code của nó trong sự kiện Format của Report như sau, mình chỉ làm cho các ô Text và Report Detail,bạn tự làm thêm cho các line nhé
Mã PHP:Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
On Error GoTo err_Detail
If IsNull(Me.SoCT) Then
Me.NgayCT.Height = 0
Me.Text185.Height = 0
Me.Diengiai.Height = 0
Me.SotienCo.Height = 0
Me.SotienNo.Height = 0
Me.Detail.Height = 0
Else
Me.Detail.Height = 0.926 * 567
Me.NgayCT.Height = 0.926 * 567
Me.Text185.Height = 0.926 * 567
Me.Diengiai.Height = 0.926 * 567
Me.SotienCo.Height = 0.926 * 567
Me.SotienNo.Height = 0.926 * 567
End If
Exit Sub
err_Detail:
MsgBox Err.Description, vbOKOnly
Exit Sub
End Sub
File
http://www.mediafire.com/file/77irpy8of5...t.zip/file
tranthanhan1962 > 25-08-19, 11:49 AM
ledangvan > 26-08-19, 09:53 AM