作者cacaliang (caa)
看板Visual_Basic
标题[.NET] table.Rows.Add(datarow) 在两层回圈中无效
时间Sun Aug 16 18:39:53 2009
程式结构大概如下 :
for each
.....
for each
datarow("栏位1") = 值1
datarow("栏位2") = 值2
table.Rows.Add(datarow)
next
next
被两层回圈包住Add方法救无效了
但是只被一层包住就有效
但是我必须要靠这两层回圈去抓我要的栏位值
请问有谁知道出了什麽问题吗?
详细程式码 :
'宣告
Dim add_table As New DataTable
add_table = ds_update_data.Tables("关键字条件机率统计表")
add_table.Clear()
'一个关键字
For Each row0 In ds_update_data.Tables("现象关键字表").Rows
Dim prob As Double
Dim result As String
Dim keyword As String
keyword = row0(1)
ds_update_work.Clear()
Dim da_GoBringHist As New SqlDataAdapter("select * from 历史_
申诉文件 where 故障现象 like '%" + keyword + "%' ", cn)
da_GoBringHist.Fill(ds_update_work, "历史申诉文件")
DataGridView_m2_update_work.DataSource = ds_update_work.Tables_
("历史申诉文件")
For Each row1 As DataRow In ds_update_data.Tables_
("故障零件关键字表").Rows
result = row1(1)
Dim flag As Integer
Dim counter As Integer
counter = 0
For Each row2 In ds_update_work.Tables("历史申诉文件").Rows
flag = 0
flag = InStr(row2(2), row1(1))
If flag > 0 Then
counter = counter + 1
End If
Next
prob = counter / ds_update_work.Tables("历史申诉文件")_
.Rows.Count
Dim dr_update As DataRow
dr_update = add_table.NewRow
dr_update("关键字") = keyword
dr_update("故障零件") = "ooo"
dr_update("机率") = prob
dr_update("可能故障原因") = "lll"
add_table.Rows.Add(dr_update)
Dim cb As New SqlCommandBuilder(da_update_data_back)
da_update_data_back.Update(ds_update_data,_
"关键字条件机率统计表")
Next
Next
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 125.228.233.84