| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 还是航线判断的问题。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=106145) |
| -- 作者：轩辕绝 -- 发布时间：2017/9/3 11:35:00 -- 还是航线判断的问题。 我之前发过帖子求助 http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=106099&replyID=&skin=1
老师予以答复了国际航班的判断。 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)) ‘城市简称拆分到集合’
Next
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
参照国际的判断，写过.夜航班的判断。但是写不成。 请老师予以帮助。。 还有，，弹出内容……，能否不弹出 |
| -- 作者：有点甜 -- 发布时间：2017/9/3 12:26:00 -- Dim abc As String = DataTables("航点表").GetComboListString("城市","简称 in (\'" & String.Join("\',\'",lst.ToArray) & "\') and 过.夜 = true") msgbox(abc) |
| -- 作者：轩辕绝 -- 发布时间：2017/9/3 12:28:00 -- 老师。过.夜判定用的了最后一个字。 |
| -- 作者：有点甜 -- 发布时间：2017/9/3 12:34:00 -- 以下是引用轩辕绝在2017/9/3 12:28:00的发言：
老师。过.夜判定用的了最后一个字。
什么意思？代码有什么问题？ |
| -- 作者：轩辕绝 -- 发布时间：2017/9/3 12:52:00 -- 需要达到的要求： 1自动识别是否是国际航班，如果是自动勾选国际，并将通往城市自动填入“国际名”的文本框中。 判定方式将“航段”文本框中的每一个字分开，分别对照“航点表”中简称，根据简称识别“国际”字段是否为“true”如果为“true”，则为国际（勾选国际），并将“航点表”中“城市”字段的内容填入“国际名”的文本框中。 2自动识别是否是过.夜航班，如果是自动勾选“过.夜”并将过.夜城市自动填入“过.夜名”的文本框中 判定方式：将“航段”文本框中的最后一个字（即右边第一个字）提取，对照“航点表”中简称查询，“过.夜”字段是否为“true”，如果是则为过.夜航班（勾选过.夜），并将“航点表”中“城市”字段的内容填入“过.夜名”的文本框中。
1，目前能够实现，2还不行，这个代码。是航段的最后一个字来判断。不是包含。谢谢老师。
|
| -- 作者：有点甜 -- 发布时间：2017/9/3 12:53:00 -- 上传实例。 |
| -- 作者：有点甜 -- 发布时间：2017/9/3 12:57:00 -- Dim str As String = r("航段") str = right(str, 1) str = DataTables("航点表").GetComboListString("城市","简称 = \'" & str & "\' and 过.夜 = true") msgbox(str) |