请教狐狸爸爸关于DataList Post By:2011/11/12 14:57:00 [只看该作者]
Dim dst As WinForm.DataList = e.Form.Controls("DataList1") For Index As Integer = 0 To dst.Count - 1 If dst.GetChecked(Index) Then Dim dr1 As DataRow = dst.GetDataRow(Index) 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