B1. Mở code VBA.
B2. Mở Module StagingAndSubmission è WriteCollectionHeader function èSelect Case lScrollLevel
B3. èSelect Case lScrollLevel thay thế :
sXmlLine = sIndent & "<" & sXmlTag & ">"
To
sXmlLine = sIndent & "<" & sXmlTag & " CINodeAction=""DELETE"">"
tương ứng với level cần xóa dữ liệu
B2. Mở Module StagingAndSubmission è
B3. èSelect Case lScrollLevel thay thế :
sXmlLine = sIndent & "<" & sXmlTag & ">"
To
sXmlLine = sIndent & "<" & sXmlTag & " CINodeAction=""DELETE"">"
tương ứng với level cần xóa dữ liệu
Đăng nhận xét