Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:编码

1楼
timber83 发表于:2024/5/23 9:44:00
图片点击可在新窗口打开查看
此处,类型名称如果使用事件属性来自动生产类型名称该怎么编码?
类型名称取值原则,从 类型_4推算,如果此级不等于0,类型名称取 类型_4的值,如果等于0,取 类型_3的值,但 类型_3依旧等于0的话,再按照此方式计算 类型_2,类型_1,取值
2楼
有点蓝 发表于: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

3楼
timber83 发表于:2024/5/23 13:07:00
图片点击可在新窗口打开查看
这种事件编码又该如何写:原则是,附加1_名称不是空值时,情形名称=附加1_名称|情形-名称,附加1_名称是空值时,情形名称=情形_名称
4楼
有点蓝 发表于: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

共4 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.