Private Sub Form_Load()
Dim i As Integer
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
For i = 1 To Data1.Recordset.RecordCount
List1.AddItem Data1.Recordset.Fields(i)
Data1.Recordset.MoveNext
NextEnd Sub
运行时 无效使用null?
赐教请....
Dim i As Integer
Data1.Refresh
Data1.Recordset.MoveLast
Data1.Recordset.MoveFirst
For i = 1 To Data1.Recordset.RecordCount
List1.AddItem Data1.Recordset.Fields(i)
Data1.Recordset.MoveNext
NextEnd Sub
运行时 无效使用null?
赐教请....
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货