主题：[求助]保存数据时登记修改内容

 

1、想要在保存数据前、在【工单流程】单元格中写入被修改过的【单元格】旧内容；命令该怎么写？

Dim r As Row = Tables("集客勘察工单清单表").current

r("工单流程") &= vbcrlf & vbcrlf & "【 "& User.Name & " 】【 "& dt & " 】【 对工单进行了修改：&  当前行被修改过的单元格就内容、多个单元格被修改时用“/”进行分割 &" 】"

DataTables("集客勘察工单清单表").Save()

 

2、想要在保存数据前、在【工单流程】单元格中写入上传到服务器的文件名称；命令该怎么写？

    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        If ftp1.Upload(dlg.FileName,"/prospecting/" & t("图片资料路径") & "/" & filesys.GetName(dlg.FileName),True) = True Then '上传选定的文件到服务器上指定的文件夹下
           
            Dim fls =  ftp1.GetFileList( "/prospecting/" & t("图片资料路径") )
            For Each fl As String In fls
                fls1 &= FileSys.GetName(fl) & vbcrlf
            Next
            t("图片资料") = fls1
            t("图片") = fls1
            t("工单流程") &= vbcrlf & vbcrlf & "【 "& User.Name & " 】【 "& dt & " 】【 上传了文件: "& 上传的文件名称 &" 】"
            DataTables("集客勘察工单清单表").Save()

 

3、是否有命令可以指定保存某一个单元格的内容、比如【区域名称】【装维人员姓名】这两个单元格都被修改了、但是我要先只保存【装维人员姓名】、但是【区域名称】暂时不进行保存。有的话命令该怎么写

 

2、我最后上传的文件是12.exl、但是前面已经上传的文件会被一起写进去

t("工单流程") &= vbcrlf & vbcrlf & "【 "& User.Name & " 】【 "& dt & " 】【 上传了文件: " & fls1 & " 】"

此主题相关图片如下：360截图20200226162303032.jpg

此主题相关图片如下：360截图20200226162326202.jpg

 

以下命令读取的是文件夹下的所有文件、但是我想只读取文件夹中图片文件、非图片的就不读取；该怎么改？

ftp1.MakeDir("/prospecting/"& t.current("图片资料路径") &"")
Dim fls =  ftp1.GetFileList("prospecting/"&  t.current("图片资料路径")  )
For Each fl As String In fls
    fls1 &=  FileSys.GetName(fl) & vbcrlf   
Next
t.current("图片") = fls1

 

此主题相关图片如下：360截图20200226163339607.jpg

以下命令想导出服务器上【\prospecting\"& t.current("图片资料路径")】路径下的存放资料的文件夹下的所有文件；但是提示【下载失败】。命令该怎么修改

 

Dim t As Table = Tables("集客勘察工单清单表")

 

Dim dlg As New SaveFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "所有文件类型" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    
    
Dim ftp As New FTPClient
ftp.Host="192.168.1.1"
ftp.Account = "dfjksaj"
ftp.password = "dsaffsdfsdf"
    If ftp.Download("\prospecting\"& t.current("图片资料路径"),dlg.FileName) = True Then  ； '下载指定路径下文件夹里的所有文件、到指定本机位置
        Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Else
        Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    End If
End If

如果要把整改文件夹（包括文件夹和里面的文件）都下载呢？能一次性下载吗？

如果出现多人同时对同一行数据进行修改、A修改了A、B、C单元格的内容；B同时在修改D、E单元格的内容。如果A先保存数据、B后面保存数据、为了避免B把A修改的内容覆盖成原来加载出来的内容，我该怎么处理【保存数据】按钮。来确保A保存数据的时候只对A修改过的A、B、C单元格的数据；而B保存数据的时候只对被B修改过的D、E单元格的数据。

最近在进行系统开发时、在打开窗口设计器在进行设计过程中、或者是设计好后打开窗口时；系统都会卡住动不了、无法进行操作。这是什么原因？

 

此主题相关图片如下：微信截图_20200302103421.png

如果不结束任务的话、放一天都是动不了的。

 

窗口的AfterLoad中也就写了以下命令啊；应该不会很耗时。更何况在窗口中进行正常设计的话、不应该会执行到什么命令吧

Dim piv As WinForm.FileManager = e.Form.Controls("图片资料")
piv.SaveAsCommand.Visible = True '另存
piv.OpenCommand.Visible = True '打开
piv.ConnectCommand.Visible = False '重连
piv.ManagerCommand.Visible = False  '管理
piv.ClearCommand.Visible = False '清除
piv.DeleteCommand.Visible = False '删除
piv.AddCommand.Visible = False  '增加
piv.FullViewCommand.Visible = False '全屏
piv.AddFolderCommand.Visible = False  '目录
'piv.StretchCommand.Visible = False '缩放
'piv.UpdateCommand.Visible = False '更新

 

Dim piv1 As WinForm.PictureViewer = e.Form.Controls("图片")
piv1.SaveAsCommand.Visible = True '另存
piv1.OpenCommand.Visible = True '打开
piv1.ConnectCommand.Visible = False '重连
piv1.ManagerCommand.Visible = False  '管理
piv1.ClearCommand.Visible = False '清除
piv1.DeleteCommand.Visible = False '删除
piv1.AddCommand.Visible = False  '增加
piv1.FullViewCommand.Visible = False '全屏
piv1.StretchCommand.Visible = False '缩放
piv1.UpdateCommand.Visible = False '更新

 

Dim piv2 As WinForm.PictureViewer = e.Form.Controls("内线图片")
piv2.SaveAsCommand.Visible = True '另存
piv2.OpenCommand.Visible = True '打开
piv2.ConnectCommand.Visible = False '重连
piv2.ManagerCommand.Visible = False  '管理
piv2.ClearCommand.Visible = False '清除
piv2.DeleteCommand.Visible = False '删除
piv2.AddCommand.Visible = False  '增加
piv2.FullViewCommand.Visible = False '全屏
piv2.StretchCommand.Visible = False '缩放
piv2.UpdateCommand.Visible = False '更新

此主题相关图片如下：360截图20200302105412650.jpg