[求助]判断表中某列是否包含指定条件数值的代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好。下面代码想按给定的变量条件，在“累计表”的“所属期间”列查找是否存在相同的值，如果存在就提示。但现在只能返回一个。比如：“累计表”的“所属期间”列已存在各自多行的“201812、201901、201902、201903、201904”的值，在我选定条件“201904”时，能返回已存在的信息，但如果再选择“201812” 或 “201901” 或 “201902” 或 “201903” 时就返不回已存在的信息了。请老师帮助指正。谢谢。

我想要的效果是：只要在“累计表”的“所属期间”列存在与给定条件相同的任意值，就提示已存在。除非是“累计表”的“所属期间”列没有的才不提示（主要是为避免重复计做同期工资）

Dim Ljqj As String = Tables("累计表").current("所属期间") '声明变量初值为"累计表"的"所属期间"

Dim Ssqj As String '声明变量用于存储选定的"所属期间"

Dim Ssqj_n As String = e.Form.Controls("ComboBox3_Qjn").TEXT '声明变量用于存储选定的"所属期间"的"年"

Dim Ssqj_y As String = e.Form.Controls("ComboBox4_Qjy").TEXT '声明变量用于存储选定的"所属期间"的"月"

Ssqj = Ssqj_n + Ssqj_y

If Ssqj = Ljqj Then

MessageBox.Show("你选择的【" & Ssqj & "】期间的薪资已计发, 不可重复!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)

Return

End If

[此贴子已经被作者于2019/4/10 10:25:34编辑过]

老师好。

用“msgbox(Ssqj)”检验文本框输入的值，其随时根据文本框中的输入值在改变。

用“msgbox(Ljqj)”检验[Dim Ljqj As String = Tables("累计表").current("所属期间") ]的值就显示为一个，有时是“201903”，有时又是“201904”，也不变化。开始显示的是什么，到最后也还是什么，不变化。只有在文本框输入的值（Ssqj）与它显示的值相符时，才出现提示。（好像是不根据条件检索，窗口启动时赋给变量的值是什么，就是什么。不动态检索）

老师，可能就是这句[Dim Ljqj As String = Tables("累计表").current("所属期间") ]代码不对，请老师帮助修改。谢谢。

"累计表"不是当前表，是不是与“不是当前表”有关，请老师指正。

[此贴子已经被作者于2019/4/10 12:32:20编辑过]

老师好。请老师帮助修正代码。谢谢

[此贴子已经被作者于2019/4/10 15:32:42编辑过]

老师好。测试实例已上传，请老师给看看。谢谢。

谢谢老师。完美。

主题：[求助]判断表中某列是否包含指定条件数值的代码