主题：[求助]怎么把这一大段代码简化一下？

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("")

先去看视频教程吧。

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

代码2楼如果不理解，去看视频；如果理解了，自己就可以简化。