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