主题：[求助]请帮忙看看e.DataRow("状态") = ""有问题吗？

If  MessageBox.show("请检查," & str.Trim(",") & "不能为空","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.Warning) = DialogResult.OK Then
                e.DataRow("状态") = ""
            End If

 

点击ok，希望状态列值为空。怎么仍然是之前的值？

可能是哪块代码有问题？我贴出来。

把datacolchangeing和datacolchanged都注释掉。现象依旧。

还是上例子吧。

验证在临时版本跟踪表-----状态-----Submitted看看现象

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

点击浏览该文件:临时版本跟踪系统26.rar

哦。忘说了，我是在记录窗口操作的。你试试记录窗口。

很奇怪，我改成你那样后。发现点击确定，状态是没有值了，但问题是这一行数据也消失了。点击全部才能看到这行数据。

这是我“缺省”按钮的代码。关键是点击“缺省”，状态为空的行是可以加载，但一旦这行是由submitted，然后点击确定，那么这行就加载不了。

If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("临时版本跟踪表").loadFilter = "状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted' or 状态 = 'Nopass' or 状态 is null"
    DataTables("临时版本跟踪表").Load()
Else
    Select Case user.Group
        Case "协议一组","协议二组","交换组","R驱动组","S驱动组","EPON组","ONU组","网管组","网络组","路由组","PTN应用组","链路组"
            If user.Roles = "研发组长" Then
                Dim str As String = "1=2"
                For Each u As UserInfo In users
                    If u.Group = user.Group Then
                        str &= " or 研发邮箱 like '%" & User.Name.trim() & "%' And (状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted' or 状态 = 'Nopass' or 状态 is null)"
                    End If
                Next
                DataTables("临时版本跟踪表").LoadFilter = str
                DataTables("临时版本跟踪表").Load()
            Else
                DataTables("临时版本跟踪表").LoadFilter = "研发邮箱 like '%" & User.Name.trim() & "%' And (状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted' or 状态 = 'Nopass' or 状态 is null)"
            End If
            DataTables("临时版本跟踪表").Load()
        Case "测试epon"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%eponver@bdcom.com.cn%' And (状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted' or 状态 = 'Nopass' or 状态 is null)"
            DataTables("临时版本跟踪表").Load()
        Case "测试switch"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%switchver@bdcom.com.cn%' And (状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted' or 状态 = 'Nopass' or 状态 is null)"
            DataTables("临时版本跟踪表").Load()
        Case "测试router"
            DataTables("临时版本跟踪表").LoadFilter = "邮件通知 like '%routerver@bdcom.com.cn%' And (状态 = 'Confirming' or 状态 = 'Bound'  or 状态 = 'Submitted' or 状态 = 'Nopass' or 状态 is null)"
            DataTables("临时版本跟踪表").Load()
        Case "配置管理"
            DataTables("临时版本跟踪表").LoadFilter = ""
            DataTables("临时版本跟踪表").Load()
    End Select
End If
DataTables("临时版本跟踪表").Load()