Foxtable(狐表)用户栏目专家坐堂 → 编码


  共有2043人关注过本帖树形打印复制链接

主题:编码

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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


 回到顶部