- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29607)
-- 发布时间：2013/3/10 2:14:00
-- 求代码
请教狐爸，在编号列输入“0152008”，组别录入B后,当在完成情况录入True时，编号栏第二个和三个字符是“15”；或者在编号列输入“0122004”，组别录入A后,当在完成情况录入True时，编号栏第二个和三个字符是“12”，系统出现提示“请核对组别是否准确”，代码怎么表示？
[此贴子已经被作者于2013-3-14 11:19:26编辑过]
-- 发布时间：2013/3/10 21:43:00
--
用代码算了
-- 发布时间：2013/3/12 2:33:00
--
狐爸，能给一个帮助吗？
-- 发布时间：2013/3/12 8:29:00
--
这种问题，应该先做个例子，设计好表，输入几行测试数据，然后再发上来，并具体说明问题，这样想帮你的人就可以很快写出代码。
否则要帮你，还得先建表，先输入数据，而且也不应符合你的期待。
-- 发布时间：2013/3/13 18:45:00
--
知道了，这样大家都好看。现在上传，请指教。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：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
-- 发布时间：2013/3/14 11:55:00
--
谢谢老大，问题已经解决。