If e.Row.IsNull("绑定编号") =False Then
If e.Row("_identify") = e.Table.Current("_identify") Then
e.style = "绑定2"
Else
e.style="绑定"
End If
End If
e.Table.grid.Cols(0).widthdisplay = 4
If e.Row.IsNull("商务颜色记录") = False Then
Dim n As String = "样式" & e.Row("_Identify") & "_" & e.Col.name
Dim ary() As String = e.Row("商务颜色记录").split("|")
For Each s As String In ary
Dim a() As String = s.split(":")
If a(0) = e.Col.name Then
e.Table.DataTable.AddUserStyle(n, Color.FromARGB(a(1)), Color.black)
e.Table.DataTable.Styles(n).BackColor = Color.FromARGB(a(1))
e.style = n
Exit For
End If
Next
End If
If e.Row("状态") = "客户通过" AndAlso e.Col.Name = "来源" Then
e.style = "客户通过"
End If
If e.Row("状态") = "可开piao" AndAlso e.Col.Name = "来源" Then
e.style = "可开piao"
End If
If e.Row("状态") = "长期未结算" AndAlso e.Col.Name = "来源" Then
e.style = "长期未结算"
End If
If e.Row("状态") = "未付款" AndAlso e.Col.Name = "来源" Then
e.style = "未付款"
End If
e.Table.SysStyles("CurrentRow").BackColor = Color.lightblue
加好友 
发短信
Post By：2023/10/13 18:22:00 [显示全部帖子]
