请教在VB中SQL长语句该如何处理
请教在VB中SQL长语句该如何处理
比如:SQL=(SELECT distinct
[CheckItems].[ID],
[Customer].[Name] + case when Customer.SexID =1 then '[男]' when Customer.SexID =2 then '[女]' end as 姓名,
[Customer].[MobileTelephone] as 移动电话,
IsNull(a.USTransMapFlag,'未传图') US上传标志,
IsNull(b.DXTransMapFlag,'未传图') DX上传标志,
[CustomerRegister].[CardNo] as 卡号,
[CheckItems].[WorkNo] as 检查号,
[CheckItems].[CheckItemName] as 项目,
[CheckItemState].[Name] as 状态 ,
[Department].[Name] as 科,
[CheckUser].[Name] as 者,
cast(case when d.ID is null then 0 else 1 end as bit) 审核,
CheckItems.AuditingFlag as 已审,
isnull(e.Name,isnull(CheckItems.AssessorUserName,'')) as 审核者,
[CheckItems].[AuditingDate] as 审核时间,
[CheckItems].[QueueDate] as 排队,
dateadd(hh, [CustomerRegister].[ReportTime], [CustomerRegister].[FirstCheckDate]) As 报告预期出具时间,
[CheckItems].[CheckBeginDate] as 检查开始时间,
[CheckItems].[CheckEndDate] as 检查结束时间,
[CheckItems].[RecordDate] as 操作时间,
[UserInfo].[Name] as 操作者,
[CheckItems].[EspecialDescription] as 特殊操作描述
From [CheckItems]
LEFT JOIN [CustomerRegister]
ON [CheckItems].[CustomerRegisterID]=[CustomerRegister].[ID]
LEFT JOIN [Customer]
ON [CustomerRegister].[CustomerID]=[Customer].[ID]
LEFT JOIN [Sex]
ON [CustomerRegister].[CustomerID]=[Customer].[ID]
LEFT JOIN [CheckItemState]
ON [CheckItems].[CheckStateID]=[CheckItemState].[ID]
LEFT JOIN [Department]
ON [CheckItems].[CheckDepartmentID]=[Department].[ID]
LEFT JOIN [UserInfo] as [CheckUser]
ON [CheckItems].[CheckUserID]=[CheckUser].[ID]
LEFT JOIN [UserInfo]
ON [CheckItems].[UserID]=[UserInfo].[ID]
LEFT JOIN [CheckFlowLine]
ON [CustomerRegister].[CheckFlowLineID]=[CheckFlowLine].[ID]
LEFT JOIN (select 'US'+'上传'+Cast(Count(WorkNo) as Varchar(10)) + '张图' USTransMapFlag,WorkNo from CheckImagesMap Where Modality = 'US' group by WorkNo) A
On [CheckItems].[WorkNo] = A.WorkNo
LEFT JOIN (select 'DX'+'上传'+Cast(Count(WorkNo) as Varchar(10)) + '张图' DXTransMapFlag,WorkNo from CheckImagesMap Where Modality = 'DX' group by WorkNo) B
On [CheckItems].[WorkNo] = B.WorkNo
left join CheckItem c on CheckItems.CheckItemID=c.ID
left join DepartmentType d on c.DepartmentTypeID=d.ID and d.ID in(0)
left join UserInfo e on CheckItems.AssessorUserID=e.ID
Where 1 = 1
AND [CheckItems].[CheckStateID]=2
AND [CheckItems].[SampleTypeID]=0
AND [CheckItems].[RecordDate]>='2012-08-13'
AND [CheckItems].[RecordDate]<dateadd(dd,1,'2012-08-13'))