| |
|
|
| |
Dim rst As ADODB.Recordset
Set cmd = New ADODB.Command
Set rst = New ADODB.Recordset
Set cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "SELECT Tab.Nr FROM Tab WHERE Tab.Nr1
Like '%" & sst & "%' And Tab. ID = " & st
Set rst = cmd.Execute
strDaten = rst.GetString
strDaten = Trim(strDaten)
strInhalt = obj.ActiveSheet.Cells(i, j)
If InStr(strDaten, strInhalt) = 0 Then
……
End If
|
Такая проблема хочу сравнить два стринга но почемуто сравниваются неправильно если
strDaten=”что-то” , strIhalt=”” функция InStr <> 0
в остальных случаях всё сравнивается нормально например если оба стринга пустые или только strDaten=”” или стринги имеют разные значения.
Посмотрите пожалуйста что я делаю не так. | |
| |
| |
| |
|
|
| | >Такая проблема хочу сравнить два стринга но почемуто сравниваются неправильно если
>strDaten=”что-то” , strIhalt=”” функция InStr <> 0
Почему вы считаете, что неправильно? Функция в этом случае должна вернуть 1.
Почитайте Help. Проверяйте длину значений перед InStr, если не хотите такой результат. | |
| |
| |
| |
|
|
| | в help написано, что если вторая строка равна "", то фунцкия instr вернет аргумент start (в вашем случае 1) | |
| |
| |
