主题：航线判断问题

请老师注意，因为本论坛过滤的词汇包含“过.夜”（中间没“.”）所以所有涉及该词的，中间都加了个“.”

 

根据控件“航段”的数据来判断从“航点表”中提取航班的特点判断：“过.夜”和“国际”

航点表如下

 

此主题相关图片如下：2.png

窗口设计如下： 

 

此主题相关图片如下：1.png

运行后如下：

 

需要达到的要求：

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

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

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

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

3国际和过.夜同时判断。

 

目前该窗口中“afterload”事件有如下代码：

Dim r As Row  = Tables("出库窗口_航班查询表").current
Dim aqy As WinForm.ComboBox = Forms("出库窗口").Controls("安全员")

e.form.controls("日期").value = r("日期")
e.form.controls("航班号").value = r("航班号")
e.form.controls("航段").value = r("航段") '航段字段获取
e.form.controls("预达时间").value = r("降落")
e.Form.Controls("领取人").value = aqy.Value

Dim lyr As WinForm.TextBox = e.Form.Controls("领取人")
Dim hz As DataRow = DataTables("护照").find("姓名='" & lyr.Value & "'")
If hz IsNot Nothing Then
     e.form.controls("护照号发").text = hz("护照号")
End If

Dim hps As DataRow = DataTables("红皮书").find("姓名='" & lyr.Value & "'")
If hps IsNot Nothing Then
     e.form.controls("红皮书发").text = hps("有效期")
End If

Dim ps As DataRow = DataTables("黄皮书").find("姓名='" & lyr.Value & "'")
If ps IsNot Nothing Then
     e.form.controls("黄皮书发").text = ps("有效期")
End If

 

 

请问如何增加。。如有改动，请老师予以标红。。。