主题：请大侠哥费心了，谢谢！

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

点击浏览该文件:上传.xls

物料编码	物料名称	日期	车号	发出	领入	发出与领入标示
660100321	老媳妇		A	4		发出
660100322	新媳妇		A	8		发出
660100321	老媳妇	2017-6-14 00:00			1	领入
660100322	新媳妇	2017-6-15 00:00			1	领入
660100321	老媳妇		A	2		发出
660100321	老媳妇		A	2		发出
660100322	新媳妇	2017-6-13 00:00			2	领入
660100322	新媳妇	2017-6-12 00:00			2	领入
说明：我想   有以下功能实现：
1、“领入”和“发出”列不能同时大于0，就是当“发出”列数值大于0时，“领入”列数值自动为0。还有就是领入数值大于0时，“发出”列自动为0。此外，还要求“领入”与“发出”列的数值不能等于负数，也不能同时大于零。
2、当“发出”列与“领入”列的其中一列数值大于0时，“发出与领入标示”列要相应变化，即：当“发出列”大于0时，在'发出与领入标示'自动添加为“发出”字样；当“领入”列大于0时，在“发出与领入标示”列自动添加为“发出”字样。

DataColChanged事件，写代码

 

If e.DataCol.name = "发出" Then
    If e.DataRow.IsNull("发出") Then
        If e.DataRow.IsNull("领入") Then
            e.DataRow("发出与领入标示") = Nothing
        Else
            e.DataRow("发出与领入标示") = "领入"
        End If
    Else
        If e.newvalue < 0 Then
            e.DataRow("发出") = e.OldValue
        Else
            e.DataRow("领入") = Nothing
            e.DataRow("发出与领入标示") = "发出"
        end if
    End If
End If
If e.DataCol.name = "领入" Then
    If e.DataRow.IsNull("领入") Then
        If e.DataRow.IsNull("发出") Then
            e.DataRow("发出与领入标示") = Nothing
        Else
            e.DataRow("发出与领入标示") = "发出"
        End If
    Else
        If e.NewValue < 0 Then
            e.DataRow("领入") = e.OldValue
        Else
            e.DataRow("发出") = Nothing
            e.DataRow("发出与领入标示") = "领入"
        End If
    End If
End If

谢谢老师，我弄错了，是我不精心没有测试好，抱歉

真的很好，测试后很好效果，谢谢老师辛苦了

老师，我上传测试文件，我已

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

点击浏览该文件:管理项目2上传测试.rar

经将代码写入了，但是没有反应。牢您费心给看看

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

点击浏览该文件:管理项目2上传测试.table

大咖就是大咖，果然不同凡响。你太牛了。