按钮“Button1”的代码如下:
Dim dtb As New DataTableBuilder("文件夹内容临时表")
dtb.AddDef("文件名称", Gettype(String), 100)
dtb.Build()
Tables("高值添加图片主窗口_Table2").DataSource = DataTables("文件夹内容临时表")
Dim dir As new io.DirectoryInfo("H:\医用耗材管理系统2.0V\AllMyFiles\植入物合格证\杰迈\3月")
Dim files=dir.GetFiles
Dim ary2(files.length-1) As String
For i As Integer = 0 To files.length-1
Dim file = files(i)
ary2(i) = (file.Name)
Next
For Each s As String In ary2
Dim dr2 As DataRow = DataTables("文件夹内容临时表").AddNew()
dr2("文件名称")=s
Next
现在点击窗口中左表的文件名,则在右边的图片框显示该图片,请问老师其代码如何写?
此主题相关图片如下:image 1.jpg