Foxtable(狐表)用户栏目专家坐堂 → 表达式合写


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

主题:表达式合写

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


加好友 发短信
等级:童狐 帖子:220 积分:1899 威望:0 精华:0 注册:2013/5/20 23:54:00
表达式合写  发帖心情 Post By:2021/4/19 10:58:00 [只看该作者]

Dim dd As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "序1"
        If dd.IsNull("序1")  Then '如果数量或单价为空
            dd ("序号1") = Nothing
        Else
           dd ("序号1") = dd("零件编号") + "01"
        End If
End Select
Select Case e.DataCol.Name
    Case "序2"
        If dd.IsNull("序2")  Then '如果数量或单价为空
            dd ("序号2") = Nothing
        Else
           dd ("序号2") = dd("零件编号") + "02"
        End If
End Select

老师,如果我有序1~序20,序号1也从01~20,不想一个一个的写


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111374 积分:566934 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/4/19 11:07:00 [只看该作者]

for i as integer = 1 to 20
if e.DataCol.Name = "序" & i then
        If dd.IsNull("序" & i)  Then '如果数量或单价为空
            dd ("序号" & i) = Nothing
        Else
           dd ("序号" & i) = dd("零件编号") & format(i, "00")
        End If
exit for
end if
next

 回到顶部