在 TimerTick 事件中写了如下代码,运行后假如数据行没有图片时会报错,怎么处理
Dim wjjmc As String
Dim t As Table = Tables("充值凭证表")
wjjmc =Format(T.Current("充值日期"),"yyy年MM月dd日") & "【" & T.Current("起始号") & "至" & T.Current("终止号") & "】"
Dim dlg As New FolderBrowserDialog
Dim czkh As DataRow
Dim shID As String = e.Form.Controls("czpzIDTextBox").value
Dim dr1 As DataRow = DataTables("充值凭证表").Find("充值凭证ID= '" & shID & "'" )
Dim str As String = dr1("充值凭证原始名称")
For Each file As String In FileSys.GetFiles(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" )
Dim name As String = FileSys.GetName(file)
If name.Contains(str) Then
Dim ls = dr1.Lines("充值凭证")
If ls.contains(name) = False Then
ls.add(name)
dr1.lines("充值凭证") = ls
DataTables("充值凭证表").Save
End If
End If
Next
DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\"
此主题相关图片如下:截图08.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-9/20209101938645707.jpg)
此主题相关图片如下:截图09.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2020-9/202091019392223581.jpg)
[此贴子已经被作者于2020/9/10 19:39:24编辑过]