主题：代码太繁琐。。求简洁的代码

Dim dt1 As fxDataSource
Dim dt2 As fxDataSource
Dim dt3 As fxDataSource
Dim nms As String() = {"门店","库位"} '指定连接列

Dim dts() As fxDataSource = {dt3, dt2, dt1}
Dim pdt As fxDataSource = Nothing
For Each dt As object In dts
    If pdt Is Nothing AndAlso dt IsNot Nothing Then
        pdt = dt
    Else
        If pdt IsNot Nothing AndAlso dt IsNot Nothing Then
            pdt.Combine(nms,dt,nms)
        End If
    End If
Next

Tables(e.Form.Name & "_table1").DataSource = pdt