- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 编码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192003)
-- 发布时间：2024/5/23 9:44:00
-- 编码
此处，类型名称如果使用事件属性来自动生产类型名称该怎么编码？
类型名称取值原则，从 类型_4推算，如果此级不等于0，类型名称取 类型_4的值，如果等于0，取 类型_3的值，但 类型_3依旧等于0的话，再按照此方式计算 类型_2,类型_1,取值
类型名称取值原则，从 类型_4推算，如果此级不等于0，类型名称取 类型_4的值，如果等于0，取 类型_3的值，但 类型_3依旧等于0的话，再按照此方式计算 类型_2,类型_1,取值
-- 发布时间：2024/5/23 9:54:00
--
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
-- 发布时间：2024/5/23 13:07:00
-- 数据组合
这种事件编码又该如何写：原则是，附加1_名称不是空值时，情形名称=附加1_名称|情形-名称，附加1_名称是空值时，情形名称=情形_名称
-- 发布时间：2024/5/23 13:33:00
--
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