作者mindscold (喵)
看板Visual_Basic
标题[.NET] fill填资料时会少一列？
时间Fri Aug 20 14:59:03 2010
请输入专案类型(网站专案或者应用程式专案)：Visual Studio 2010
请问当我将A资料库的某资料表读出写入至B资料库的另一张资料表
再指定表单上Datagrid的资料来源是B资料库该资料表时
显示的资料总会少最後一笔
但是去资料库B内看的时候很肯定全部都在
所以我猜应该是Datagrid在读取资料时有某部份出现问题了
可是如果不作将读取A的资料写到B这个动作、而一开始直接读B的话
Datagrid读取的资料又不会有少
请问是为什麽
Code如下：
'读取A的资料
Dim Listcmd As New Odbc.OdbcCommand("select 分类代号,分类说明 from 厂商分类代
号 order by 分类代号", Cnn)
Dim listadap As New Odbc.OdbcDataAdapter
Dim listdata As New DataSet
listadap.SelectCommand = Listcmd
listadap.Fill(listdata, "厂商分类代号")
'清空B的资料
Dim LListAdap As New OleDb.OleDbDataAdapter
Dim StrCmd As String = "delete from 厂商分类代号"
Dim cmd As New OleDb.OleDbCommand(StrCmd, LCnn)
cmd.ExecuteNonQuery()
'把A的资料写入B
For i As Integer = 0 To listdata.Tables("厂商分类代号").Rows.Count - 1
With LListAdap
StrCmd = "insert into 厂商分类代号 (分类代号,分类说明) values
('" & listdata.Tables("厂商分类代号").Rows(i)("分类代号") & "','" &
listdata.Tables("厂商分类代号").Rows(i)("分类说明") & "')"
.InsertCommand = New OleDb.OleDbCommand(StrCmd, LCnn)
.InsertCommand.ExecuteNonQuery()
End With
Next
Me.厂商分类代号TableAdapter.Fill(Me.DataSet2.厂商分类代号)
↑如果在这里分别读取Adapter跟DataSet最後一笔资料出来检查会发现DataSet少一笔
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 60.248.17.41