Foxtable(狐表)用户栏目专家坐堂 → [求助]判断表中某列是否包含指定条件数值的代码


  共有2233人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/10 10:48:00 [显示全部帖子]

弹出各个值看一下,如

 

msgbox(ljqj)

msgbox(ssqj)

 

如果弹出的值,不正确,说明你代码有问题


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/10 12:43:00 [显示全部帖子]

没看懂你的逻辑是什么。做一个实例发上来,说明如何操作,需要得到怎样的效果。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/4/10 15:13:00 [显示全部帖子]


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_n = "" Or Ssqj_y = "" Then
    MessageBox.Show("  没有选择【所属期间】!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If
Dim fdr As DataRow = DataTables("年度工资").find("所属期间='" & ssqj & "'")
If fdr IsNot Nothing Then
    MessageBox.Show("你选择的【" & Ssqj & "】期间的薪资已计发, 不可重复!","提示",MessageBoxButtons.Ok,MessageBoxIcon.Information)
    Return
End If

 

Forms("统计汇总").close


 回到顶部