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

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  纠正一下代码被  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=67374)

--  作者：qianqian1530
--  发布时间：2015/4/23 9:17:00
--  纠正一下代码被

\'\'\'
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
dt = cmd.ExecuteReader()
For Each dr1 As DataRow In dt.DataRows
Dim dswr As DataRow = DataTables("A_データ").Find("商品型番 = \'" & dr1("商品型番") & "\'")
If dswr IsNot Nothing Then
Else
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If
Next

\'\'
这么写感觉怪怪的呢?

忙吗纠正一下被

--  作者：Bin
--  发布时间：2015/4/23 9:18:00
--

If dswr Is Nothing Then
Dim dr2 As DataRow = DataTables("表B").AddNew()
For Each dc As DataCol In DataTables("表A").DataCols
dr2(dc.Name) = dr1(dc.name)
Next
End If

没啥好纠正的了

--  作者：qianqian1530
--  发布时间：2015/4/23 9:26:00
--
我知道哪里怪了,

我没有设置数据库里的表``

cmd.Com ma ndText = "SEL ECT * From {数据}"

哈哈