还是航线判断的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我之前发过帖子求助

老师予以答复了国际航班的判断。

Dim str As String = r("航段")

Dim lst As new List(of String)

For i As Integer = 0 To str.Length - 1

If lst.Contains(str(i)) = False Then lst.Add(str(i)) ‘城市简称拆分到集合’

msgbox("简称 in ('" & String.Join("','",lst.ToArray) & "') and 国际 = true") '弹出内容自己看效果

Dim cbostring As String = DataTables("航点表").GetComboListString("城市","简称 in ('" & String.Join("','",lst.ToArray) & "') and 国际 = true")

If cbostring > "" Then

msgbox(cbostring)

e.form.controls("国际").Checked = True

e.form.controls("国际名").Text = cbostring

End If

参照国际的判断，写过.夜航班的判断。但是写不成。

请老师予以帮助。。

还有，，弹出内容……，能否不弹出

Dim abc As String = DataTables("航点表").GetComboListString("城市","简称 in ('" & String.Join("','",lst.ToArray) & "') and 过.夜 = true")

msgbox(abc)

老师。过.夜判定用的了最后一个字。

以下是引用轩辕绝在2017/9/3 12:28:00的发言：

老师。过.夜判定用的了最后一个字。

什么意思？代码有什么问题？

需要达到的要求：

1自动识别是否是国际航班，如果是自动勾选国际，并将通往城市自动填入“国际名”的文本框中。

判定方式将“航段”文本框中的每一个字分开，分别对照“航点表”中简称，根据简称识别“国际”字段是否为“true”如果为“true”，则为国际（勾选国际），并将“航点表”中“城市”字段的内容填入“国际名”的文本框中。

2自动识别是否是过.夜航班，如果是自动勾选“过.夜”并将过.夜城市自动填入“过.夜名”的文本框中

判定方式：将“航段”文本框中的最后一个字（即右边第一个字）提取，对照“航点表”中简称查询，“过.夜”字段是否为“true”，如果是则为过.夜航班（勾选过.夜），并将“航点表”中“城市”字段的内容填入“过.夜名”的文本框中。

1，目前能够实现，2还不行，这个代码。是航段的最后一个字来判断。不是包含。谢谢老师。

Dim str As String = r("航段")

str = right(str, 1)

str = DataTables("航点表").GetComboListString("城市","简称 = '" & str & "' and 过.夜 = true")

msgbox(str)

主题：还是航线判断的问题。