主题：请教如何让狐表自动将日志表合并后供狐表调用

我输入的代码如下：

Dim lst As List(Of String) =Connections("ninetowns").GetTableNames
Dim cmd As new sqlcommand
cmd.C
For Each nm As String In lst
    Dim dt As DataTable
    cmd.commandtext="select top 2 DECL_REG_NO,ENT_CNAME,DECL_NO,DECL_DATE,CONTRACT_NO,DECL_PERSON_CODE,CONTACTOR,TELEPHONE,ORG_CODE,TECH_REG_CODE,ENT_DECL_NO from ["& nm & "]"
    dt=cmd.ExecuteReader
    For Each dr As DataRow In Dt.Datarows
        For Each dc As DataCol In Dt.DataCols
            Dim r As Row = Tables("表A").AddNew
            r(dc.name)=dr(dc.name)
         Next
    Next
Next