If e.DataCol.Name = "piao据号码" Then
If e.NewValue Is Nothing Then
e.DataRow("piao据原件") = Nothing
Else
Dim dr As DataRow
dr = DataTables("应收款").Find("[piao据号码] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("piao据原件") = dr("piao据原件")
Dim path As String
If DataTables("应收款").DataCols("piao据原件").DefaultFolder > "" Then
path = DataTables("应收款").DataCols("piao据原件").DefaultFolder.trim("\")
Else
path = ProjectPath & "Attachments"
End If
Dim path2 As String
If e.DataTable.DataCols("piao据原件").DefaultFolder > "" Then
path2 = e.DataTable.DataCols("piao据原件").DefaultFolder.trim("\")
Else
path2 = ProjectPath & "Attachments\"
End If
' For Each s As String In e.DataRow.Lines("piao据原件")
'If FileSys.FileExists(path & "\" & s) Then
' FileSys.CopyFile(path & "\" & s, path2 & "\" & s, True)
' End If
'Next
For Each s As String In e.DataRow.Lines("piao据原件")
If FileSys.FileExists(path & "\" & s) Then
FileSys.CopyFile(path & "\" & s, path2 & "\" & s, True)
If FileSys.FileExists(path2 & "\" & s) = False Then
msgbox("复制失败")
End If
End If
Next
End If
End If
End If
Dim dri As Date = Date.Today
If InputValue(dri, "付款文件","请输入日期:") Then
Output.Show(dri)
End If
老师好，首先谢谢。我想在输入piao据号码后文件复制前对以下（客户、日期、piao据名称）列必须输入的数据进行对话框提示并输入数据。类似我用黄色标出的代码。万分感谢。
加好友 
发短信
Post By：2016/9/29 15:03:00 [只看该作者]
此主题相关图片如下：图像 1.png