Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
DataColChanged事件中加入下面的代码:
Select Case e.DataCol.Name
Case "类型_4","类型_3","类型_2","类型_1"
Dim dr As DataRow = e.DataRow
If dr("类型_4") <> "0" Then
dr("类型名称") = dr("类型_4")
ElseIf dr("类型_3") <> "0" Then
dr("类型名称") = dr("类型_3")
……
End If
End Select
Select Case e.DataCol.Name
Case "附加1_名称","情形_名称"
Dim dr As DataRow = e.DataRow
dim s as string
If dr.isnull("附加1_名称") =false Then
s = dr("附加1_名称") & "|"
End If
dr("情形名称") = s & dr("情形_名称")
End Select