项目事件 AfterOpenProject 中的代码
DataTables("基础资料").DataCols("电子档案").DefaultFolder = ProjectPath & "电子档案/" '字段电子档案存放目录
DataTables("基础资料").DataCols("电子档案").SourceFolder = ProjectPath & "电子档案/" '字段电子档案来源目录
在菜单中按键事件 Click 中的代码如下
If MessageBox.Show("确定选择录入多个电子档案?","请核准信息",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.filter = "|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
Dim fls As String = CurrentTable.Current("电子档案")
For Each fl As String In dlg.FileNames
If fls >"" Then
fls = fls & vbcrlf
End If
fls = fls & fl
Next
CurrentTable.Current("电子档案") = fls
End If
End If
运行之后的图片是叉看不了图片错在哪了 请大神指教急用
加好友 
发短信
Post By：2018/4/14 17:09:00 [显示全部帖子]
