- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请大侠哥费心了，谢谢！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102240)
-- 发布时间：2017/6/15 18:59:00
-- 请大侠哥费心了，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:上传.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时，在“发出与领入标示”列自动添加为“发出”字样。 | ||||||
-- 发布时间：2017/6/15 21:28:00
--
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
-- 发布时间：2017/6/15 22:53:00
-- 谢谢老师，我弄错了，是我不精心没有测试好，抱歉
谢谢老师，我弄错了，是我不精心没有测试好，抱歉
-- 发布时间：2017/6/15 22:54:00
-- 谢谢老师，我弄错了，是我不精心没有测试好，抱歉
真的很好，测试后很好效果，谢谢老师辛苦了
-- 发布时间：2017/6/15 23:09:00
-- 请老师在给看看
老师，我上传测试文件，我已
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2上传测试.rar |
经将代码写入了，但是没有反应。牢您费心给看看
-- 发布时间：2017/6/16 0:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2上传测试.table |
-- 发布时间：2017/6/16 5:18:00
--
大咖就是大咖，果然不同凡响。你太牛了。