以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段代码如何修改？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85914)
--  作者：scofields
--  发布时间：2016/6/5 17:46:00
--  这段代码如何修改？
红袍老师，这段代码如何修改？我想“过磅1”为True时，“车号1”的样式变为“已过磅”
If e.Row("过磅1")= True Then
e.Col.name("车号1").style="已过磅"
End If
--  作者：大红袍
--  发布时间：2016/6/5 21:36:00
--  

If e.Col.Name = "车号1" AndAlso e.Row("过磅1") = true Then

    e.Style = "已过磅"

End If
--  作者：scofields
--  发布时间：2016/6/6 0:06:00
--  
红袍老师，我的表里有10个车号列与10个过磅列，分别命名为车号1，车号2......,车号10，过磅1，过磅2，......，过磅10，那是不是我要写10遍这样的代码？

If e.Col.Name = "车号1" AndAlso e.Row("过磅1") = true Then

    e.Style = "已过磅"

End If

.......

If e.Col.Name = "车号10" AndAlso e.Row("过磅10") = true Then

    e.Style = "已过磅"

End If
--  作者：大红袍
--  发布时间：2016/6/6 9:17:00
--  

If e.Col.Name Like "车号*"
    Dim idx As String = e.Col.name.Replace("车号", "")
    If e.Row("过磅" & idx) = True Then
        e.Style = "已过磅"
    End If
End If