主题：赋值问题

 Dim tb As Table = e.Form.Controls("Table2").Table
Dim i As Integer =Tables("配件fa piao表.配件fa piao明细").Rows.Count
Dim t As Table = Tables("配件fa piao表.配件fa piao明细")
t.AddNew(tb.GetCheckedRows.count)
For Each dr As Row In tb.GetCheckedRows  
    Dim r As Row= t.Rows(i)
    r("维修编号")=dr("维修编号")
    i=i+1