以下内容为程序代码:

1 Tables("PDM托盘解析_tbContent").Fill("Sel ect * from PDMcontent Where _identify = 0","PDMftp", True)
2
3 If nDrawingNameCol ＞ 0 Then
4 Dim tbl As Table = tbContent.Table
5
6 For i As Integer = 1 To sheet.Rows.Count - 1
7 \'strValue = strValue & sheet(i,nDrawingNameCol).Value & "|"
8 \' Functions.AsyncExecute("showMsg2TextBox" , txtProgress, strValue )
9 Dim dt As Row = tbl.AddNew()
10 dt("专业名称") = sheet(i,0).value
11 dt("图档名称") = sheet(i,1).value
12 dt("图档编号") = sheet(i,2).value
13 dt("图档类型") = sheet(i,3).value
14 dt("状态") = sheet(i,4).value
15 dt("路径") = sheet(i,5).value
16 dt("上传者") = sheet(i,6).value
17 dt("上传日期") = sheet(i,7).value
18 dt("可用") = True
19 dt("创建者") = "admin"
20 dt("创建时间") = time1
21 dt("修改者") = "admin"
22 dt("修改时间") = time1
23
24 \'For k As Integer = 2 To tbl.Cols.Count - 1
25 \' dt(k) = sheet(i,k-2).value
26 \'Next
27 Next
28