控件表格绑定了一个临时数据表，用于导入数据，添加代码如下：
For i = 0 To lst.Items.Count - 1
If lst.GetItemChecked(i) Then
Dim Sheet As XLS.Sheet = Book.Sheets(i)
Do While sheet(j, 1).Text <> ""
dr = DataTables("设备材料导入临时表").AddNew
dr("名称") = sheet(j, 0).Text
dr("参数一") = sheet(j, 1).text
dr("参数二") = sheet(j, 2).text
dr("参数三") = sheet(j, 3).text
dr("参数四") = sheet(j, 4).text
dr("参数五") = sheet(j, 5).text
dr("单位") = sheet(j, 6).text
dr("数量") = sheet(j, 7).text
dr("主项") = lst.Items(i)
dr("项目") = pronum
j = j + 1
Loop
End If
Next i
预览时提示：设置 DataSource 属性后无法修改项集合。
加好友 
发短信
Post By：2022/11/2 20:48:00 [显示全部帖子]
