Меня не столько  волнует работоспособность программы - она работает. и я могу написать код меняющий кавычки в таблице на что-то иное и обратно. Мне скорее хочется увидеть более легкий и изящный способ. или услышать, что его нет

sub uni_value_in_col_sub (byVal number_of_col As Integer)

Dim i,k as Integer
Dim name_of_col, quick_str As String
Dim tip_of_col, num_rows_select1 As Integer

tip_of_col=ColumnInfo (UchTable, "col"+str$(number_of_col),COL_INFO_TYPE)

name_of_col = ColumnInfo (UchTable, "col"+str$(number_of_col),col_info_name)

i=1
Do
    fetch First from Select_table1
    uni_values(i)=str$(Select_table1.col(number_of_col))

    if tip_of_col<>1 then
    if uni_values(i)="" then
        Run command "Select * from Select_table1 Where "+name_of_col+"<>"+chr$(34)+chr$(34)+" into Select_table1 NoSelect"
    else
        Run command "Select * from Select_table1 Where "+name_of_col+"<>"+str$(uni_values(i))+" into Select_table1 NoSelect"
    end if
    else
    if uni_values(i)="" then
        Run command "Select * from Select_table1 Where "+name_of_col+"<>"+chr$(34)+chr$(34)+" into Select_table1 NoSelect"
    else
        Run command "Select * from Select_table1 Where "+name_of_col+"<>"+chr$(34)+uni_values(i) +chr$(34)+" into Select_table1 NoSelect"
    end if
    end if
    i=i+1
    num_rows_select1=TableInfo(Select_table1,tab_info_nrows)

Loop While num_rows_select1>0

end sub

Отредактировано Сергей (2008-02-08 20:35:31)