- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 颜色标识行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105455)
-- 发布时间：2017/8/19 21:12:00
-- 颜色标识行
表A与表B没有建立关联。需求：当表A的产品在表B中没有相应的产品或有产品但没有标准用料时，表A的产品行用浅红色标识。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:辅1.foxdb |
-- 发布时间：2017/8/19 21:28:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:辅1.foxdb |
-- 发布时间：2017/8/19 21:52:00
--
我的版本不够，能贴出代码吗？谢谢
-- 发布时间：2017/8/20 7:24:00
--
增加了1个辅1列（数据列）在表A和表B的DataColChanged事件中设置了代码，但不成功。
-- 发布时间：2017/8/20 13:18:00
--
drawcell事件
If e.Row.IsNull("型号") = False Then
Dim fdr As DataRow = DataTables("表B").Find("型号 = \'" & e.Row("型号") & "\' and 规格 = \'" & e.Row("规格") & "\'")
If fdr Is Nothing Then
e.Table.DataTable.AddUserStyle("样式1", Color.red, color.black)
e.style = "样式1"
ElseIf fdr.Isnull("标准用料") Then
e.Table.DataTable.AddUserStyle("样式2", Color.yellow, color.black)
e.style = "样式2"
End If
End If
-- 发布时间：2017/8/20 14:37:00
--
表A和表B是没有建立关联的一对多任意子行没有计算用料都要标识，添加计算用料后自动去掉标识，就一个标识样式，不需要分标识1和标识2
-- 发布时间：2017/8/20 14:53:00
--
4楼忘了传附件，需要时可增加辅助列
增加了1个辅1列（数据列）在表A和表B的DataColChanged事件中设置了代码，但不成功。| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:辅1.foxdb |
-- 发布时间：2017/8/20 15:04:00
--
If e.DataCol.Name ="型号" OrElse e.DataCol.Name ="规格" Then \'数量发生变化
\'在B表找出该产品
\'Dim drs As List(Of DataRow) = DataTables("BOM").Select("产品代码 = " & "\'" & e.DataRow("产品代码") & "\'" ) \'一对多查找
Dim drs As List(Of DataRow) = DataTables("表B").Select("型号 = " & "\'" & e.DataRow("型号") & "\' And 规格 = " & "\'" & e.DataRow("规格") & "\'" ) \'一对多查找
Dim cnt As Integer = 0
For Each dr As DataRow In drs
If dr("标准用料") > 0
cnt = cnt + 1
End If
Next
e.DataRow("辅1") = (drs.Count = cnt)
End If
-- 发布时间：2017/8/20 15:45:00
--
8楼代码还是没有满足需求。我的需求是这样的：
1、表A增加产品时，表B有相应的产品并标准用料，则勾选辅1，否则不勾选辅1）
2、表B：如果有表A的产品，没有标准用料，则不勾选辅1，录入标准用料数值，则勾选辅1
3、表B：如果没有表A的产品，则不勾选辅1，添加表A的产品和标准用料，则勾选辅1
不知道表达清楚没有。
-- 发布时间：2017/8/20 15:57:00
--
表B，DataColChanged事件
Select Case e.DataCol.name
Case "型号","规格","标准用料"
DataTables("表A").datacols("型号").RaiseDataColChanged("型号 = " & "\'" & e.DataRow("型号") & "\' And 规格 = " & "\'" & e.DataRow("规格") & "\'")
End Select