- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于样式的代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73041)
-- 发布时间：2015/8/11 14:05:00
-- [求助]关于样式的代码
在生产记录表中的CurrentChanged的事件中有以下代码：
\'列出本工序在工序合并表中的位置
If e.Table.Current Is Nothing Then \'如果Current为Nothing
Return
Else
If Forms("生产记录录入辅助窗口").Opened Then
Tables("生产记录录入辅助窗口_Table1").Fill("Select 工序,单据号,品名,卷号,母卷号,牌号,厚度,宽度,重量,起始时间,结束时间,往来合同,往来公司 F rom {工序合并表} Where [母卷号] = \'" & e.Table.Current("母卷号") & "\'" ,"ShcsErpSql",True)
Tables("生产记录录入辅助窗口_Table1").Sort = "卷号,起始时间"
Tables("生产记录录入辅助窗口_Table1").Cols("厚度").DataCol.SetFormat("0.000")
Tables("生产记录录入辅助窗口_Table1").Cols("宽度").DataCol.SetFormat("0.0")
Tables("生产记录录入辅助窗口_Table1").Cols("重量").DataCol.SetFormat("0.00")
Tables("生产记录录入辅助窗口_Table1").Cols("起始时间").DataCol.SetDateTimeFormat(DateTimeFormatEnum.DateTime)
Tables("生产记录录入辅助窗口_Table1").Cols("结束时间").DataCol.SetDateTimeFormat(DateTimeFormatEnum.DateTime)
Tables("生产记录录入辅助窗口_Table1").AutoSizeCols()
End If
End If
执行后有以下结果：
此主题相关图片如下：qq截图1.jpg
就以图中例子而言，我希望生产记录表选中的哪一行记录的卷号(即HS150001B)在工序合并表中以黄底显示，这样让用户能一目了然的知道选中的记录在工序合并表中所处的位置。
谢谢！！！
-- 发布时间：2015/8/11 14:58:00
--
编写drawcell事件。
e.Table.DataTable.AddUserStyle("黄色", Color.Red, Color.White)
If e.Row("卷号") = Tables("生产记录").Current("母卷号") Then
e.Style = "黄色"
End If