ListView问题！在线等待！立即给分！

Do While Not r.EOF
        Set itmx = ListView1.ListItems.Add
         itmx.Text = Trim(r!InNO)
         itmx.Tag = r!idd
         itmx.SubItems(1) = Trim(r!Size)
         itmx.SubItems(2) = r!QTY
         itmx.SubItems(3) = IIf(IsNull(r!cwfph), "", Trim(r!cwfph))
         itmx.SubItems(4) = IIf(IsNull(r!cwsize), Trim(r!Size), Trim(r!cwsize))
         itmx.SubItems(5) = IIf(IsNull(r!cwqty), Trim(r!QTY), Trim(r!cwqty))
         itmx.SubItems(6) = IIf(IsNull(r!cwprice), 0, Trim(r!cwprice))
         itmx.SubItems(7) = Trim(r!jsr)
         itmx.SubItems(8) = Format(r!Rq, "yyyy-MM-dd")
         If Trim(itmx.SubItems(3)) <> "" Then
            itmx.Bold = True
            itmx.ListSubItems(1).Bold = True
            itmx.ListSubItems(2).Bold = True
            itmx.ListSubItems(3).Bold = True
            itmx.ListSubItems(4).Bold = True
            itmx.ListSubItems(5).Bold = True
            itmx.ListSubItems(6).Bold = True
            itmx.ListSubItems(7).Bold = True
            itmx.ListSubItems(8).Bold = True
        Else
            itmx.ForeColor = QBColor(12)
            itmx.ListSubItems(1).ForeColor = QBColor(12)
            itmx.ListSubItems(2).ForeColor = QBColor(12)
            itmx.ListSubItems(3).ForeColor = QBColor(12)
            itmx.ListSubItems(4).ForeColor = QBColor(12)
            itmx.ListSubItems(5).ForeColor = QBColor(12)
            itmx.ListSubItems(6).ForeColor = QBColor(12)
            itmx.ListSubItems(7).ForeColor = QBColor(12)
            itmx.ListSubItems(8).ForeColor = QBColor(12)
            
        End If
    
    r.MoveNext