以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  帮忙看下，在表的afterload事件中，现在不起作用。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=160652)
--  作者：ycs5801
--  发布时间：2021/2/9 20:04:00
--  帮忙看下，在表的afterload事件中，现在不起作用。
For Each File As String In FileSys.GetFiles("D:\\TEMP\\")
    With CurrentTable
        Dim r As Integer
        r = .Find(FILE, 0, 0, False, True, False)
        If r = - 1 AndAlso file.Length=16 Then \'如果找到符合条件的行
            Dim r1 As Row = CurrentTable.AddNew()
            r1("文件名")=file
            r1("获取时间")=Date.Now()
            
            r1("条形码")=file.SubString(0,12)
            FileSys.CopyFile("D:\\TEMP\\", ProjectPath & "pic\\" & file,True)
            
            r1("图片") = ProjectPath & "pic\\" & file
            
            Dim xuhao As String=file.SubString(6,2)
            
            
            Dim dr As DataRow
            dr = DataTables("基础资料").Find("企业编码 = \'" & xuhao & "\'")
            If dr IsNot Nothing \'如果找到
                r1("企业名称")=dr("企业名称")
                               
            End If
        End If
    End With
 Next
 DataTables("主表").Save()
[此贴子已经被作者于2021/2/9 20:04:52编辑过]
--  作者：有点蓝
--  发布时间：2021/2/9 20:32:00
--  
这种功能不适合放到表事件处理，应该设计窗口按钮，放到按钮中

其次FileSys.GetFiles返回的是完整的文件路径，而不是文件名称

dim dt as datatable = datatables("某表")
For Each File As String In FileSys.GetFiles("D:\\TEMP\\")
msgbox(File)
Next
--  作者：ycs5801
--  发布时间：2021/2/10 10:05:00
--  你好
那我想进入系统之后自动执行这个操作不可以吗？必须要设置个按钮，点一下吗？
--  作者：有点蓝
--  发布时间：2021/2/16 10:45:00
--  
进入系统之后自动执行应该放到项目的afteropenproject事件