powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
4 сообщений из 4, страница 1 из 1
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
    #38461730
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Function TBLRecordRead(ByVal Vhid As String) As String
  On Error GoTo er
  TBLRecordRead = RemTbl.Fields(Vhid).value & ""
dali:
  Exit Function
er:
  TBLRecordRead = "Read failed!"
  Resume dali
End Function



?RemTbl.Fields(Vhid).value
Правильно

Как-то непривычно! 0 или -1 или 1 накрайняк легко отслеживать. А тут фигня какая-то получается. Как вытащить логическое значения с поля ?
...
Рейтинг: 0 / 0
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
    #38461738
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
или это русификатор такое вытворил уродство с VB...
?RemTbl.Fields(Vhid).value = "Истина"
ответ: Правильно
...
Рейтинг: 0 / 0
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
    #38461743
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я бы мог сделать через iif(.....= True,1,0).
наверное так и сделаю, так как Правильно это уродище на образ True. Только надо будет проверять Тип поля так как у меня эта функция универсальная.
Ок. Наверное тема закрыта.
...
Рейтинг: 0 / 0
VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
    #38461751
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Заработало.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Function TBLRecordRead(ByVal Vhid As String) As String
  On Error GoTo er
  If RemTbl.Fields(Vhid).Type = 1 Then
    TBLRecordRead = IIf(RemTbl.Fields(Vhid).value = True, "True", "False")
  Else
    TBLRecordRead = RemTbl.Fields(Vhid).value & ""
  End If
dali:
  Exit Function
er:
  TBLRecordRead = "Read failed!"
  Resume dali
End Function


Я просто по сети бросаюсь данными и отлавливаю на слово "True". Просто такого не ждал. Нюанс.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB<=BD.access (поле as boolean отвечает на одном ПК Истина, на другом True)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]