文章列表
Public Function AddAttachmentOnQC(TestObject, FileName)
On Error Resume Next
'通过AddItem(Null)方法取得Attachment对象
Set AttachmentFactory = TestObject.Attachments
Set Attachment = AttachmentFactory.AddItem(Null)
'上传文件并更新
Attachment.FileName = FileName
Attachment.Type = 1
Attachment.Post
Attachme ...
On Error Resume Next
Set tdconnction = CreateObject("TDApiOle80.TDConnection")
tdconnction.InitConnectionEx "http://lab11:8888/qcbin"
tdconnction.ConnectProjectEx "DEFAULT","QualityCenter_Demo","alex_qc",""
Set BugFact = tdconnction.Bu ...
<rich:extendedDataTable value="#{bugBean.dataModel}" var="bug"
id="bugDataTable" width="100%" sortMode="single" align="center"
selectionMode="multi" tableState="#{bugBean.tableState}"
selection=" ...