主题：图片批量添加到表,怎么做?

命令窗口执行一遍：

for each dr as datarow in datatables(”xxx“).datarows

    dr("图片") = dr("编号") & ".bmp"

next

编号如何对应图片的路径和名称，你得有规律，有规律，才能写代码。

dim pth  as string = "E:\管理项目1\Attachments\13年4月里面"

For each file as string in Filesy.GetName(ph)

    dim dr as datarow = datatables("xxx").AddNew

    dr("文件") = file.subString(pth.Length)

    dim nm as string = filesys.getname(file)

    dr("编号") = nm.substring(0,nm.length -4)

next