Код

Private Type member   strI As String   strF As String   strO As String   iAge As Integer   iA As Integer   iB As Integer End Type

Это тип данных - твой чувак из бд. Таким образом у тебя будет новая переменная типа member, с которой ты можешь будешь делать все что хочешь. Хочешь массивы из member'ов делай, хочешь сортируй эти массивы и т.д.

Код

' засовываешь такой-то mmb по алфавиту в такой то файл filenum Private Function PutMember(mmb As member, filenum As Integer) As Integer ' ... End Function ' вытаскиваешь такой-то mmb из такого то файла filenum Private Function GetMember(mmb_num As Integer, filenum As Integer) As member ' ... End Function

Ну а это два скелета функции первой необходимости. GetMember получает от тебя номер чувака в бд, а filenum это номер ранее открытого файла. Функция возвращает тебе соответственно нужного тебя чела.
PutMember засовывает тебе чувака в файл. Если сделать так что она будет записывать в алфавитном порядке, то тебе вообще ничего не останется делать как достать всех чуваков, засунуть их в массив и в цикле снова записать уже в другой файл (чтобы не затереть первый случайно по началу). Запишуться они в алвавитном порядке потому, что PutMember за это отвечает .

Остальные вопросы должны быть конкретней

Как вывести в Text1.text следующее:

Код

For i = 0 To S    If A(i) = A(i + 1) Then            Print A(i); " "; B(i); " "; C(i); " "; D(i); " "; E(i); " "; F(i)         Do While A(i) = A(i + 1) And i <= S            i = i + 1            Print A(i); " "; B(i); " "; C(i); " "; D(i); " "; E(i); " "; F(i)         Loop    End If Next

[/color][color=blue]


Добавлено @ 14:43
Просто втыкаю вместо

Код

Debug.Print A(i); " "; B(i) Text1.text = A(i)

но ничего не выходит

A() это что за массив?

Да просто массив, в начале

Код

Dim A() as integer

а потом

Код

ReDim A(i) ReDim A(1 to 10)

например

Цитата(Voldemar2004 @ 7.1.2005, 12:41)

но ничего не выходит

Вылазит ошибка? Или ничего не происходит?

Ничего абсолютно не происходит.

Какое-нибудь значение в A(i) сидит?
Попробуй так

Код

Text1.text = CStr(A(i))

Ничего не происходит, пробовал

Код

Text1.Text = Str(A(i))

тоже самое. В первый раз с таким случаем сталкиваюсь - сколько раз до этого делал подобную ерунду и все работало.
Добавлено @ 19:35
Не, дело мне кажется не функициях преобразования типов, а в особенности вывода в Text1.text в Visual Basic 6.

Может ты до той строчки вообще не доходишь из за какого нибудь if'a?
И еще раз:

Цитата(cardinal @ 7.1.2005, 15:55)

Какое-нибудь значение в A(i) сидит?

А вообще у меня вот это без проблем проходит:

Код

Option Explicit Private Sub Command1_Click() Dim a() As Integer ReDim a(4) a(0) = 2 a(1) = 4 a(2) = 5 a(3) = 1 a(4) = 7 Text1.Text = a(1) End Sub

Цитата(Voldemar2004 @ 7.1.2005, 17:33)

Не, дело мне кажется не функициях преобразования типов, а в особенности вывода в Text1.text в Visual Basic 6.

Нет.

Вот именно, что не дохожу из-за этого Ифа перед Text1.text, как быть?

Код

For i = 0 To S    If A(i) = A(i + 1) Then            Text1.text = CStr(A(i))         Do While A(i) = A(i + 1) And i <= S            i = i + 1            Text1.text = CStr(A(i))         Loop    End If Next

Ну так чему тогда удивляться?

Код

'For i = 0 To S '   If A(i) = A(i + 1) Then           Text1.text = CStr(A(i)) '        Do While A(i) = A(i + 1) And i <= S '           i = i + 1 '           Text1.text = CStr(A(i)) '        Loop '   End If 'Next

Такая конструкция не работает

Код

'For i = 0 To S '   If A(i) = A(i + 1) Then           Text1.text = CStr(A(i)) '        Do While A(i) = A(i + 1) And i <= S '           i = i + 1 '           Text1.text = CStr(A(i)) '        Loop '   End If 'Next

откуда прога будет узнавать что выводить, если For...Next нету и условия If...then

Цитата(Voldemar2004 @ 8.1.2005, 11:06)

Вот именно, что не дохожу из-за этого Ифа перед Text1.text, как быть?

Короче еще раз, ты чего сделать то хочешь? На примере! и причем здесь "не работает Text1.text = CStr(A(i))"?

Вот пример, максимально упростил:

Код

Dim i As Integer Dim A(10) As Integer For i = 1 To 10    A(i) = InputBox("") Next i For i = 0 To 10    If A(i) = A(i + 1) Then            Print A(i)         Do While A(i) = A(i + 1) And i <= 10            i = i + 1            Print A(i)         Loop    End If Next

Мне надо только чтобы результат выводился не на главную форму а в Text1.Text, просто как-то более цивилизованно. У Text1.text включены свойства Multiline и Scrollbars - both (монитор не резиновый).

Text1.Text = A(i) vmesto Print A(i) ... ?