Foxtable(狐表)用户栏目专家坐堂 → [求助]批量发工资条出错


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

主题:[求助]批量发工资条出错

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/14 14:36:00 [显示全部帖子]

For Each dr As DataRow In DataTables("工资库").Select("[发薪年月]= '201705' and [电子邮箱] is not null")

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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/14 15:10:00 [显示全部帖子]

 你的数据问题,你的电子邮件的地址,有可能填写错误,比如写成了 abc@abcefg

 

 你可以判断一下是否正确

 

Dim str As String = "abc@123."
Dim reg As new System.Text.RegularExpressions.Regex("^[a-zA-Z0-9_-]+@[a-zA-Z0-9_-]+(\.[a-zA-Z0-9_-]+)+$")
If reg.Ismatch(str) Then
    msgbox("正确")
Else
    msgbox("错误")
End If


 回到顶部