主题：可否将数据表作为列表引申实现这样的功能

想实现以下效果
第一列已经录入内容，第二列在录入内容时按下F3键 弹出列表窗口实现加载 行政区域表 省市 LIKE 第一列 and 县市 like 第二列正在输入的内容的行 ，点选后表A的第一列内容=点选列的省市 第二列内容=点选的县市列
ChangeEdit事件代码设置成这样会出错 【第一列已输入内容，数据录入光标现在是第二列】
If Forms("窗口1").Opened Then
Dim txt As String = e.Text
Dim abc As String =CurrentTable.Current("第一列")
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
If txt.contains("*")
txt = "'*" & txt.replace("*","[*]") & "*'" '
Else
txt = "'*" & txt & "*'"
End If
tbl.Filter = "省市 Like " & txt & " and 县市 Like " & abc & ""
End If
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:ok数据表作为列表.table

此主题相关图片如下：aaaaaaaaaaaaa.jpg

终于可以实现在第二列编辑时按下F3出列表窗口功能了，但是无法实现tbl.Filter = "省市 Like " & txt & " And 县市 Like '*" & abc & "*'" 这一功能
最终想实现 第一列已经录入内容，第二列在录入内容时按下F3键 弹出列表窗口实现加载 行政区域表 省市 LIKE 第一列 and 县市 like 第二列正在输入的内容的行
请教各位修改代码成怎么样能实现？
以下为使用的表属性事件及代码
-------------------------------------------------------
保留AfterEdit
Forms("窗口1").Close()
--------------------------------------------------------
新增表事件
'表事件-KeyDownEdit
If e.Col.Name = "第二列" Then
If e.keycode = keys.f3
Forms("窗口1").open()
End If
End If
If Forms("窗口1").Opened Then
Dim txt As String = e.Text
Dim abc As String =CurrentTable.Current("第一列")
Dim tbl As Table = Tables("窗口1_Table1")
If txt = "" Then
tbl.Filter = ""
Else
If txt.contains("*")
txt = "'*" & txt.replace("*","[*]") & "*'" '
Else
txt = "'*" & txt & "*'"
End If
tbl.Filter = "省市 Like " & abc & " and 县市 Like '*" & txt & "*'"
End If
End If

改后的项目上传 ，各位帮忙改一下 Dim abc As String =CurrentTable.Current("第一列") abc好像取不到第一列的值

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table