[求助]怎么把这一大段代码简化一下？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

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