VBNet - Форум - НУ , ПОМОГИТЕ ЖЕ!

Вопрос: НУ , ПОМОГИТЕ ЖЕ! Добавлено: 18.04.06 23:28

Автор вопроса: DJ MATHEMATIC

1.У меня проблема такая...Я считываю в массив XpointPlace все

PointPlace,введенные с помощью InputBox...Но почему-то это не получается (несовпадение типов)

Public XpointPlace() As String
Public Type Air
    NumberTrip As Byte
    PointPlace As String * 20
    TimeArrive As Date
    TimeLeave As Date
    FreePlace As Integer
End Type
Public record As Air

      ReDim Preserve XpointPlace(record.PointPlace)
      XpointPlace(number) = record.PointPlace

2.И еще несовпадение типов при использовании переменных и массивов As Date

Public XtimeLeave() As Date, cityX as String, cityY As string, timeZ As Date

ReDim Preserve XtimeLeave(record.TimeLeave)
      XtimeLeave(number) = record.TimeLeave

cityY = InputBox("Ââåäèòå ãîðîä", "Ââîä")
timeZ = InputBox("Ââåäèòå âðåìÿ", "Ââîä")

For i = 1 To UBound(XpointPlace)
   If cityY = XpointPlace(i) And timeZ = XtimeLeave(i) Then
       txtY = txtY & YfreePlace(i) & vbNewLine
   End If
Next i
Ответить

Ответы Всего ответов: 9

Номер ответа: 1 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #1	Добавлено: 19.04.06 11:11
	ReDim Preserve XpointPlace(record.PointPlace) А что, размерность массива - это уже строка? Не знал... ) Ответить

Номер ответа: 2 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #2	Добавлено: 19.04.06 11:24
	ЗЫ ReDim Preserve XtimeLeave(record.TimeLeave) Нет, это уже дата!! :[] Ответить

Номер ответа: 3 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| \| #3	Добавлено: 19.04.06 21:00
	Гы, я думал, что это dword. Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 22.04.06 15:21
	cstr cdate Ответить

Номер ответа: 5 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| \| #5	Добавлено: 22.04.06 22:31
	ReDim Preserve XpointPlace(record.PointPlace) Попробуй в конце вот такую ботву добовить: As String Ответить

Номер ответа: 6 Автор ответа: Страшный Сон Вопросов: 46 Ответов: 848	Профиль \| \| #6	Добавлено: 23.04.06 22:47
	Размерность массива можно выразить только целым числом. И String, и Date тут явно не подходят. Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 23.04.06 23:25
	тогда + cint Ответить

Номер ответа: 8 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #8	Добавлено: 24.04.06 10:54
	Ребят, вы хоть свои посты, читаете? Какие, нах, cstr, cdate, cint и As String?! Dim PointPlaceCount as Long 'Количество переменных типа Air, в которых содержатся твои PointPlace ReDim Preserve XpointPlace(PointPlaceCount) А вообще этот код - настоящая жесть, что откуда, куда и зачем копируется - непонятно, зачем массив - неясно, ибо переменная с исходными данными всего одна - record. Подумай еще раз над логикой программы. Ответить

Номер ответа: 9 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #9	Добавлено: 24.04.06 10:56
	ЗЫ Если используешь всего одну переменную типа Air, но постоянно присваиваешь ей новые значения - веди счетчик, тот же PointPlaceCount, и при вводе нового значения делай PointPlaceCount = PointPlaceCount + 1. Ну и это все равно криво Ответить

Страница: 1 |