我输入的代码如下:
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