Foxtable(狐表)用户栏目专家坐堂 → 求代码


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

主题:求代码

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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
求代码  发帖心情 Post By:2013/3/10 2:14:00 [只看该作者]

请教狐爸,在编号列输入“0152008”,组别录入B后,当在完成情况录入True时,编号栏第二个和三个字符是“15”;或者在编号列输入“0122004”,组别录入A后,当在完成情况录入True时,编号栏第二个和三个字符是“12”,系统出现提示“请核对组别是否准确”,代码怎么表示?
[此贴子已经被作者于2013-3-14 11:19:26编辑过]

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


加好友 发短信
等级:婴狐 帖子:89 积分:535 威望:0 精华:0 注册:2013/2/23 20:06:00
  发帖心情 Post By:2013/3/10 21:43:00 [只看该作者]

用代码算了

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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
  发帖心情 Post By:2013/3/12 2:33:00 [只看该作者]

狐爸,能给一个帮助吗?


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/12 8:29:00 [只看该作者]

这种问题,应该先做个例子,设计好表,输入几行测试数据,然后再发上来,并具体说明问题,这样想帮你的人就可以很快写出代码。

否则要帮你,还得先建表,先输入数据,而且也不应符合你的期待。


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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
  发帖心情 Post By:2013/3/13 18:45:00 [只看该作者]

知道了,这样大家都好看。现在上传,请指教。

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.rar


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


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/14 8:08:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/14 9:28:00 [只看该作者]

Select Case e.DataCol.name
    Case "编号","完成情况","组别"
        If e.DataRow("编号").Length = 7 Then
            Dim hm As String = e.DataRow("编号").SubString(1,2)
            If (hm = "15" AndAlso e.DataRow("组别") = "B") OrElse (hm = "12" AndAlso e.DataRow("组别") = "A")  Then
                If e.DataRow("完成情况") = True Then
                    messagebox.show("提示一下")
                End If
            End If
        End If
End Select

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


加好友 发短信
等级:童狐 帖子:213 积分:2228 威望:0 精华:0 注册:2012/2/3 14:14:00
  发帖心情 Post By:2013/3/14 11:55:00 [只看该作者]

谢谢老大,问题已经解决。

 回到顶部