主题：求代码

请教狐爸，在编号列输入“0152008”，组别录入B后,当在完成情况录入True时，编号栏第二个和三个字符是“15”；或者在编号列输入“0122004”，组别录入A后,当在完成情况录入True时，编号栏第二个和三个字符是“12”，系统出现提示“请核对组别是否准确”，代码怎么表示？

用代码算了

狐爸，能给一个帮助吗？

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

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

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