vba에서 Nill 값을 허용하는 목록보기

Question

listview에서 데이터를 업로드하는 동안 값이없는 항목이 있으면 다음 행 데이터를 가져옵니다. listview에서 nill 값을 표시하도록 허용 할 수 있습니까?

Dim Acon As New ADODB.Connection 
Dim Rs As New ADODB.Recordset 
Dim row     As Long 
With Acon 
    .Provider = "Microsoft.ACE.OLEDB.12.0" 
    .ConnectionString = "Data Source=" + ThisWorkbook.Sheets(1).Range("V27").Value 
    .Open 
End With 

With Rs 
    .CursorLocation = adUseClient 
    .CursorType = adOpenDynamic 
    .LockType = adLockOptimistic 
    .ActiveConnection = Acon 
    .Source = "Select * from OJT where [Created by]='" & username1 & "'" 
    .Open 
End With 

With Rs 
    Rs.MoveFirst 
    While Not Rs.EOF 

     If Rs.Fields("Created by").Value = username1 Then 
      On Error Resume Next 
      ListView14.ListItems.Add , , Rs.Fields("Emp #").Value 
      ListView14.ListItems(lv_item).ListSubItems.Add , , Rs.Fields("Name").Value 
      ListView14.ListItems(lv_item).ListSubItems.Add , , Rs.Fields("Created by").Value 
      lv_item = lv_item + 1 
      On Error GoTo 0 
     End If 
     Rs.MoveNext 
    Wend 
End With 

Rs.Close 
Acon.Close 

Answer 1

당신이 무엇을 빈 문자열을 추가하는 가장 간단한 해결책

예처럼 보인다 ListView14.ListItems.Add , , Rs.Fields("Emp #").Value & ""