数据更新 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

为真么总是说找不到 Cols1() 组里的表呢?

DataSource 数据库里面有啊, (不在胡表里.)

'''

'数据更新

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

Dim Cols1() As String = {"administrator_st_Data","administrator_st_Amazon","administrator_st_Yahoo","administrator_st_Rakuten"}

Dim Cols2() As String = {"st_Data","st_Amazon","st_Yahoo","st_Rakuten"}

Dim Cols3() As String = {"商品型番","sku","code","商品番号"}

For i As Integer = 0 To Cols1.Length -1

cmd.CommandText = "SE LECT * From {" & Cols1(i) & "}"

dt = cmd.ExecuteReader()

e.Form.Controls("TextBox33").text & =VbCrLf & Date.now & VbCrLf & " ∟导入" & Cols1(i)

For Each dr1 As DataRow In dt.DataRows

Dim dswr As DataRow = DataTables(Cols2(i)).Find("[" & Cols3(i) & "] = '" & dr1(Cols3(i)) & "'")

If dswr IsNot Nothing Then

Else

Dim dr2 As DataRow = DataTables(Cols2(i)).AddNew()

For Each dc As DataCol In DataTables(Cols1(i)).DataCols

dr2(dc.Name) = dr1(dc.name)

End If

Application.DoEvents()

我设置了, 网页里不现实 ``

'''

'数据更新

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.Connectio nName = "DataSource"

Dim Cols1() As String = {"administrator_st_Data","administrator_st_Amazon","administrator_st_Yahoo","administrator_st_Rakuten"}

Dim Cols2() As String = {"st_Data","st_Amazon","st_Yahoo","st_Rakuten"}

Dim Cols3() As String = {"商品型番","sku","code","商品番号"}

For i As Integer = 0 To Cols1.Length -1

cmd.CommandText = "SE LECT * From {" & Cols1(i) & "}"

dt = cmd.ExecuteReader()

e.Form.Controls("TextBox33").text & =VbCrLf & Date.now & VbCrLf & " ∟导入" & Cols1(i)

For Each dr1 As DataRow In dt.DataRows

Dim dswr As DataRow = DataTables(Cols2(i)).Find("[" & Cols3(i) & "] = '" & dr1(Cols3(i)) & "'")

If dswr IsNot Nothing Then

Else

Dim dr2 As DataRow = DataTables(Cols2(i)).AddNew()

For Each dc As DataCol In DataTables(Cols1(i)).DataCols

dr2(dc.Name) = dr1(dc.name)

End If

Application.DoEvents()

```

此主题相关图片如下：360桌面截图20150424110957.jpg

Bin ,

是

For Each dc As DataCol In DataTables(Cols1(i)).DataCols

dr2(dc.Name) = dr1(dc.name)

这句话里的 DataTables(Cols1(i)).DataCols 这个代码有问题, 要怎么修改啊

主题：数据更新