vbaのNill値を受け入れるリストビュー

Question

リストビューでデータをアップロードするときに、値がない項目があれば、次の行のデータを引き出します。 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 & ""