VB中一个对象变量或With块变量未设置的问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 10:23:55
Private Sub YuPK() '预排课,通过判断来确定课程的空间量
Set kc4 = cnn.Execute("delete * from 空间明细")
For hang = 1 To Grid1.Rows - 1
If Grid1.Cell(hang, 8).Text = "默认" Then
Select Case Grid1.Cell(hang, 6).Text
Case "1"
n = 2 'n代表该课程是否允许连排
Case "0"
n = 1
End Select
StatIIE '初始化比对排课
StatACC '进行预冒泡排序,得到顺序
End If
Next
End Sub
If Grid1.Cell(hang, 8).Text = "默认" Then
对象变量或With块变量未设置的问题 错误就是这句
Grid1是一个网格控件，数据在前面的代码中已经连接。kc4 = cnn.Execute("delete * from 空间明细")
是在排课的时候只是默认的增加课程数，既只能增加7门课。

Grid1是什么,有没有把数据连接到这里呢?看代码,好像没有

Set kc4 = cnn.Execute("delete * from 空间明细")这个也只是打开一个数据集,好像没有对kc4操作

呵呵,我没有看Execute里面的sql语句,晕了.
既然删除了全部数据,Grid1里应该没有数据了,

StatIIE '初始化比对排课
StatACC '进行预冒泡排序,得到顺序
没这样的用法
要么加 call

一楼：为什么一定要加call才能调用？我不懂了！
kc4 = cnn.Execute("delete * from 空间明细")
删除记录!
Grid1是什么控件，数据源是KC4吗