老师,如何将以下改成 如图中只要列 FUsed 勾选中的记录转到Excel中,谢谢。
Dim Book As New XLS.Book(ProjectPath & "Attachments\Manuf_Incoming.xlsx")
Dim Result As DialogResult
Dim Proc As New Process
Dim fl As String = ProjectPath & "WH\" & Tables("Incoming").current("Barcode") & ".xlsx"
Book.Build()
If FileS ys.FileExists(ProjectPath & "WH\" & Tables("Incoming").current("Barcode") & ".xlsx") Then
Result = Messagebox.Show(Tables("Incoming").current("Barcode") & ".xlsx"&" 文件已经存在,是否要覆盖?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Book.Save(fl)
Proc.File = fl
Proc.Start()
此主题相关图片如下:捕获.png