有一个资产标签，如下如图：
此主题相关图片如下：32.png
此主题相关图片如下：33.png
希望在下表的选择任意多行之后能套打资产标签，请问以下代码哪里出了问题：
Dim lst As new List(of String)
For Each r As Row In Tables("资产管理_Table1").GetCheckedRows
lst.Add(r("_Identify"))
Next
Dim filter = Tables("资产管理_Table1").Filter
Tables("资产管理_Table1").Filter = "[_Identify] in (" & String.Join(",",lst.ToArray) & ")"
Dim Book As New XLS.Book(ProjectPath & "Attachments\Laberzc.xls")
Dim fl As String = ProjectPath & "Reports\laberzc.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
Tables("资产管理_Table1").Filter = filter
加好友 
发短信
Post By：2016/11/29 14:51:00 [只看该作者]
