- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请专家帮忙看一下这段代码该如何修改 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=51890)
-- 发布时间：2014/6/5 9:56:00
-- 请专家帮忙看一下这段代码该如何修改
对于一个表我之前为字段“到货日期”自定义了两种样式，“近期”和“逾期”，分别用黄色和红色标识，代码如下：
-- 发布时间：2014/6/5 9:59:00
--
-- 发布时间：2014/6/5 10:47:00
--
谢谢专家，试成了，挺好用的，另外想请请教一个问题，请问以下这种情况应该如何写代码：
-- 发布时间：2014/6/5 10:53:00
--
请上例子. 描述看得头晕.
-- 发布时间：2014/6/5 10:57:00
--
好的，上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:boc库存及订单管理项目.zip |
-- 发布时间：2014/6/5 11:04:00
--
如果要求密码，是8888，几乎忘了
-- 发布时间：2014/6/5 11:06:00
--
搞不清楚你的对应关系.
-- 发布时间：2014/6/5 11:11:00
--
采购订单明细表，datacolchanged事件，代码
Select Case e.DataCol.Name
Case "采购数量"
Dim pdr As DataRow = e.DataRow.GetParentRow("采购订单主表")
If pdr IsNot Nothing Then
pdr("是否核销") = pdr("采购合计") = e.DataTable.Compute("sum(入库数量)", "采购订单号=\'" & e.DataRow("采购订单号") & "\'")
End If
End Select
-- 发布时间：2014/6/5 11:12:00
--
就是【采购订单主表】中的一个"采购订单号"，可能在采购入库【入库主表】时对应多个"入库单号"，当有着同一个"采购订单号"的一个或多个"入库单号"的"入库合计"之和等于对应"采购订单号"的"采购合计"时， 【采购订单主表】中"是否核销"自动打勾
-- 发布时间：2014/6/5 11:16:00
--
还需要写一下，入库明细表，datacolchanged事件，代码
Select Case e.DataCol.name
Case "采购入库日期", "销售出库日期"
If e.DataRow.isnull("采购入库日期") = False Then
If e.DataRow.isnull("销售出库日期") = False Then
e.DataRow("钢瓶状态") = "销售出库"
Else
e.DataRow("钢瓶状态") = "采购入库"
End If
Else
e.DataRow("钢瓶状态") = Nothing
End If
Case "入库数量"
DataTables("采购订单明细表").DataCols("采购数量").RaiseDataColChanged(e.DataRow.GetParentRow("采购订单明细表"))
End Select