可以让dgv.DataSource
=
null
如果是要清除指定的某一项的话
可以先让dgv.DataSource
=
new
List<object>()
再对原来的集合进行删除动作
最后在重新指定一下
VB可使用Nothing
关键字用于取消某对象变量与实际对象的关联。使用 Set 语句将对象变量赋值为 Nothing。
例如:
Set MyObject = Nothing
多个对象变量可以引用同一个实际对象。当 Nothing 赋值给某对象变量后,此变量就不再引用任何实际对象。当多个对象变量引用同一个对象时,只有在所有对象变量都设置为 Nothing (在设置为Nothing的最后一个对象变量超出范围后,显式或隐式地使用 Set
命令)后,与变量所引用的对象相关联的内存和系统资源才被释放。
实现代码:
Option ExplicitDim cn As New ADODB.Connection '定义数据库的连接
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
Dim sql As String
sql = "select * from jishijilu" '
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\wd.mdbPersist Security Info=False"
cn.Open
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub
Private Sub DataGrid1_Click()
Set cn = Nothing '本句和下一行语句不用实现效果相似
Set rs = Nothing '
Set DataGrid1.DataSource = Nothing '本句语句就能实现DataGrid控件清空
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)