以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教表事件代码~~  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30373)

--  作者:mamuaiqing
--  发布时间:2013/3/26 21:13:00
--  请教表事件代码~~
表名为:表A,表中列名为"第一列"为字符列,想在项目 表 事件中加入一个代码判断,如果表中的行大于1,如果第一列的内容已经输入,如果本行的第一列内容不等于上一行的第一列内容就出现提示,这样的话代码要写在表中的哪个事件里?代码怎么写?
--  作者:mamuaiqing
--  发布时间:2013/3/26 21:28:00
--  

比如第一列的第一行内容为:"A",第一列第二行的内容为:"B"

If e.DataTable.DataRows.Count > 1 Then
    If e.DataRow("第一列") IsNot Nothing Then
        这里的代码要怎么写?

     

      MessageBox.Show("本行内容跟上行内容不一样,禁止操作!", "提示")
    End If
End If


--  作者:狐狸爸爸
--  发布时间:2013/3/27 8:22:00
--  

....
    If e.DataRow.IsNull("第一列") = False Then

        dim dr as DataRow = e.DataTable.Find("[_Identify] < " & e.DataRow("_Identify"),"[_Identify] Desc")
        if dr isnot nothing andalso e.datarow("第一列") <> dr("第一列") then
             MessageBox.Show("本行内容跟上行内容不一样,禁止操作!", "提示")
        end if
    End If


 ...

[此贴子已经被作者于2013-3-27 8:31:12编辑过]

--  作者:mamuaiqing
--  发布时间:2013/3/27 18:44:00
--  
感谢老爹跟muhua老师~~图片点击可在新窗口打开查看