点击目录右边的cell按钮没反应,请帮忙看看哪里有问题。
上传目录click代码如下:
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.OK Then
Dim c As Col = CurrentTable.Cols(CurrentTable.ColSel)
Dim ftp As FTPClient = c.DataCol.FTPClient
If ftp.Upload(dlg.SelectedPath, "/ " & FileSys.GetName(dlg.SelectedPath)) Then
CurrentTable.Current(c.Name) = "/ " & FileSys.GetName(dlg.SelectedPath)
End If
End If
e.Form.Close
cellbuttonclick代码如下:
If e.Col.Name = "目录" Then
e.Cancel = True
If e.Row.IsNull(e.Col.Name) = False Then
Forms("上传目录").Open(windows.Forms.Cursor.position.x, windows.Forms.Cursor.position.y)
End If
End If
目录列的扩展如附件
此主题相关图片如下:扩展.png