为什么说我为定义变量啊

[jason8643]

Private m_IsAdd1 As Boolean
Private m_IsAdd2 As Boolean

Private startcol As Integer
Private endcol As Integer
Private col, row As Integer
Private rowheight As Integer
Private colwidth(14) As Long
Private order(14) As Boolean


Option Explicit

Private Sub InitDataGrid2()

DataGrid2.Columns(0).Locked = True '编号
DataGrid2.Columns(2).Locked = True '类别编号

DataGrid2.Columns(0).width = 500
DataGrid2.Columns(1).width = 1500
DataGrid2.Columns(2).width = 1100
DataGrid2.Columns(3).width = 1200
DataGrid2.Columns(4).width = 800
DataGrid2.Columns(5).width = 800
DataGrid2.Columns(6).width = 800
DataGrid2.Columns(7).width = 1200

If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.Recordset.MoveLast
货物编号.Text = Adodc2.Recordset.Fields("编号").Value + 1
Adodc2.Recordset.MoveLast
Else
货物编号.Text = 1
End If

End Sub

Private Sub InitDataGrid3()

DataGrid2.Columns(0).Locked = True '编号
DataGrid2.Columns(2).Locked = True '类别编号

DataGrid2.Columns(0).width = 500
DataGrid2.Columns(1).width = 1500
DataGrid2.Columns(2).width = 800
DataGrid2.Columns(3).width = 1200
DataGrid2.Columns(4).width = 800
DataGrid2.Columns(5).width = 800
DataGrid2.Columns(6).width = 800
DataGrid2.Columns(7).width = 1200

If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.Recordset.MoveLast
Else
货物编号.Text = 1
End If

End Sub
Private Sub SaveInit()

startcol = DataGrid2.SelStartCol
endcol = DataGrid2.SelEndCol
col = DataGrid2.LeftCol
row = DataGrid2.row

rowheight = DataGrid2.rowheight

Dim i As Integer
For i = 0 To DataGrid2.Columns.count - 1
colwidth(i) = DataGrid2.Columns(i).width
Next

End Sub

Private Sub ResumeInit()

DataGrid2.SelStartCol = startcol
DataGrid2.SelEndCol = endcol
DataGrid2.Scroll col, row

DataGrid2.rowheight = rowheight

Dim i As Integer
For i = 0 To DataGrid2.Columns.count - 1
DataGrid2.Columns(i).width = colwidth(i)
Next

End Sub

Private Sub initdatagrid1()

DataGrid1.Columns(0).Locked = True

DataGrid1.Columns(0).width = 2000
DataGrid1.Columns(1).width = 1200

DataGrid1.AllowRowSizing = False
DataGrid1.Columns(0).AllowSizing = False
DataGrid1.Columns(1).AllowSizing = False

End Sub


Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

On Error Resume Next
Adodc1.caption = Adodc1.Recordset.Fields("类别名称").Value

End Sub

[slowgrace]

在哪一行说你“未定义变量”？