C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


(過去ログ 33 を表示中)
■16201 / )  datagrid縦方向表示後、updateできない。
□投稿者/ little-potato (4回)-(2008/03/31(Mon) 16:30:56)

分類:[.NET 全般] 

今、datagrid縦方向表示できましたが、updateできません。
私のコート:
   Dim aatable As New Data.DataTable '新建一个数据表
aatable.Columns.Add("名前")
aatable.Columns.Add("値")
'将行ID表示列()
Dim aarow As Data.DataRow
aarow = aatable.NewRow
aarow.Item(0) = "id"
aarow.Item(1) = test.mydataset.Tables(0).Rows(max).Item("id")
aatable.Rows.Add(aarow)
'将 行VALUE表示列
Dim aarow2 As Data.DataRow
aarow2 = aatable.NewRow
aarow2.Item(0) = "Value"
aarow2.Item(1) = test.mydataset.Tables(0).Rows(max).Item("name")
aatable.Rows.Add(aarow2)
Me.DataGrid2.DataSource = aatable
DataGrid2.Enabled = True
後、datagridの上に、直接に操作して、updateできない。

ボタンのsql: Public Function Uptodabd() As Boolean
Try
Dim sqs As New ArrayList
sqs.Add("delete from testtable")
For i As Integer = 0 To mydataset.Tables(0).Rows.Count - 1
Dim sql As String = ""
sql = sql & "Insert INTO testtable(id,name)values("
sql = sql & "'" & mydataset.Tables(0).Rows(i).Item("id") & "',"
sql = sql & "'" & mydataset.Tables(0).Rows(i).Item("name") & "')"
sqs.Add(sql)
Next
If DBCONs.runsql(sqs) = True Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
End Try
End Function
どうもありがとうございました。
返信 編集キー/


管理者用

- Child Tree -