Dim bb As Integer = Tables(e.form.name & "_table2").Findrow("uuid='" & Tables(e.form.name & "_table1").Current("uuid") & "'") If bb > -1 Then '如果找到对应uuid的附件
Dim r As Row = Tables(e.form.name & "_table2").rows(bb)
Dim dr As DataRow = r.DataRow
Dim lst As List(of String) lst = dr.Lines("文件名")
vars("文件名")=lst(0)
Dim fl As String = ProjectPath & "下载文件\第一行文件" & lst(0)