红色部分是编译error,GcMultiRow要换成MultiRow,后续ColumnHeaders应该替换成什么?
Private Sub ClearMeisai()
'Dim mHeadCaption As GrapeCity.Win.GcMultiRow.ColumnHeaders.MHeader = Nothing
Me.eltDataList.Redraw = False
If eltDataList.MaxMRows <> 0 Then
Me.eltDataList.ActivePosition = New MPosition(0, 2, 0)
Me.eltDataList.Clear()
Me.eltDataList.MaxMRows = 0
Me.eltDataList.DataSource = Nothing
End If
mHeadCaption = eltDataList.ColumnHeaders(2, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(3, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(4, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(5, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(6, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(7, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(8, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(9, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(10, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(11, 0)
mHeadCaption.Caption = String.Empty
mHeadCaption = eltDataList.ColumnHeaders(12, 0)
mHeadCaption.Caption = String.Empty
Me.eltDataList.Redraw = True
Me.eltDataList.FreezeColumns = 2
Me.eltDataList.FreezeLine = GridLine.Empty
'_objJKP140FormState.DecOFSHNO = -3
End Sub
|