Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎么把这一大段代码简化一下？


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

主题：[求助]怎么把这一大段代码简化一下？
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		[求助]怎么把这一大段代码简化一下？  发帖心情 Post By：2018/11/28 15:34:00 [只看该作者]

Dim t As Table = Tables("筐架表")
Dim kg As String = ""
If e.DataRow("铁箱") > 0 Then
    kg &= e.DataRow("铁箱") & "铁箱"
Else
    t.Current("铁箱") = Nothing
End If

If e.DataRow("袋子") > 0 Then
    kg &= e.DataRow("袋子") & "袋子"
Else
    t.Current("袋子") = Nothing
End If

If e.DataRow("铁筐") > 0 Then
    kg &= e.DataRow("铁筐") & "铁筐"
Else
    t.Current("铁筐") = Nothing
End If

If e.DataRow("托盘") > 0 Then
    kg &= e.DataRow("托盘") & "托盘"
Else
    t.Current("托盘") = Nothing
End If

e.DataRow("单笔筐架")  = kg.trim("")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/28 16:04:00 [只看该作者]

Dim ary() As String = {"铁箱", "袋子", "铁筐", "托盘"}
Dim kg As String = ""
For Each s As String In ary
    If e.DataRow(s) > 0 Then
        kg &= e.DataRow(s) & s       
    End If
Next

e.DataRow("单笔筐架")  = kg.trim("")
 回到顶部
帅哥哟，离线，有人找我吗？
fengwenliuyan
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00 		这段语句还能简化吗？  发帖心情 Post By：2018/11/28 16:33:00 [只看该作者]

Dim t As Table = Tables("筐架表")
Dim str As String = ""
Dim v1 = val(e.Form.controls("textbox1").text)
If v1 > 0 Then
    str &= v1 & "铁箱"
    t.Current("铁箱") = v1
Else
    t.Current("铁箱") = Nothing
End If
Dim v2 = val(e.Form.controls("textbox2").text)
If v2 > 0 Then
    str &= v2 & "铁筐"
    t.Current("铁筐") = v2
Else
    t.Current("铁筐") = Nothing
End If
Dim v3 = val(e.Form.controls("textbox3").text)
If v3 >0 Then
    str &= v3 & "袋子"
    t.Current("袋子") = v3
Else
t.Current("袋子") = Nothing
End If
Dim v4 = val(e.Form.controls("textbox4").text)
If v4 >0 Then
    str &= v4 & "托盘"
    t.Current("托盘") = v4
Else
t.Current("托盘") = Nothing
End If
e.Form.DropDownBox.value = str.trim("")
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/28 17:04:00 [只看该作者]

先去看视频教程吧。

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

 

代码2楼如果不理解，去看视频；如果理解了，自己就可以简化。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询