Конференция VBStreets

**Alex_2005** » 21.06.2005 (Вт) 9:44

иммеется процедура в классе. При вызове ( objDatenInGrid.DatenInGridLaden (TDBGHaupt)) нижестоящей процедуры происходит ошибка номер 13
Sub DatenInGridLaden(Grid As TDBGrid)
Dim SQL As String
SQL = "SELECT * FROM "
SQL = SQL & P_ProjLeistStueckMat
Set rs = DB.OpenRecordset(SQL)
Grid.DataSource = rs
End Sub
в чём может быть проблемма?

**RayShade** » 21.06.2005 (Вт) 9:50

В том что TypeName(TDBGHaupt)<>"TDBGrid"?

**Alex_2005** » 21.06.2005 (Вт) 9:55

извени, но я не понял.... причёс здесь TypeName и как можно эту ошибку исправить.

**RayShade** » 21.06.2005 (Вт) 10:08

Это намек на то, что тип переменной которую ты передаешь не совпадаетс тем что ожидает процедура?

**Alex_2005** » 21.06.2005 (Вт) 10:22

но я так всегда делал! И работало... и как мне тогда передать в вызове процедуры тип ожидаемой функцией переменной?

**Alex_2005** » 21.06.2005 (Вт) 10:55

мда....

GM » 21.06.2005 (Вт) 11:04

Ты случайно не так вызываеш:

Код: Выделить всё: .... objDatenInGrid.DatenInGridLaden (TDBGHaupt) ...

[/code]

**Alex_2005** » 21.06.2005 (Вт) 11:07

GM писал(а):Ты случайно не так вызываеш:
Код: Выделить всё
.... objDatenInGrid.DatenInGridLaden (TDBGHaupt) ...

[/code]

да

GM » 21.06.2005 (Вт) 11:10

Так не правильно, нужно вызывать ф-цию вот так:

Код: Выделить всё: call objDatenInGrid.DatenInGridLaden (TDBGHaupt) или objDatenInGrid.DatenInGridLaden TDBGHaupt

Ибо происходит нахождения значения выражения TDBGHaupt, вот

Конференция VBStreets

ошибка 13 при вызове процедуры класса

ошибка 13 при вызове процедуры класса

Кто сейчас на конференции