主题：代码整合

师傅你好：

我在一张总表中，调用另外两张表或多张表的数据，不知道如何整合通用，例如：

ENTAR事件：

Dim s As String = e.Form.Controls("ComboBox6").Value
e.Sender.Combolist = DataTables("铁盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim n As String = e.Form.Controls("ComboBox6").Value
e.Sender.Combolist = DataTables("木盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & n & "'")

Dim s As String = e.Form.Controls("ComboBox6").Value
e.Sender.Combolist = DataTables("木箱订单").GetComboListString("规格尺寸", "[订单编号] = '" & f & "'")

Dim s As String = e.Form.Controls("ComboBox6").Value
e.Sender.Combolist = DataTables("全铁盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & r & "'")

Dim s As String = e.Form.Controls("ComboBox6").Value
e.Sender.Combolist = DataTables("木托架订单").GetComboListString("规格尺寸", "[订单编号] = '" & t & "'")

请师傅帮忙整理，谢谢！

Dim s As String = e.Form.Controls("ComboBox6").Value
Dim v1 As String = DataTables("铁盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim v2 As String =  DataTables("木箱订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim v3 As String = DataTables("全铁盘订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
Dim v4 As String = DataTables("木托架订单").GetComboListString("规格尺寸", "[订单编号] = '" & s & "'")
e.Sender.ComboList = v1 & "|" & v2 & "|" & v3 & "|" & v4