Private Sub Form_Load()
Dim ts As String
ts = Dir("c:\test\abc*.mdb")
While ts <> ""
ListView1.ListItems.Add , , ts
ts = Dir
Wend
End Sub
Dim ts As String
ts = Dir("c:\test\abc*.mdb")
While ts <> ""
ListView1.ListItems.Add , , ts
ts = Dir
Wend
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货