主题：2013年6月26日更新

更新说明：

 

1、修正了FTP某些情况下处理中文出现乱码的情况
2、修正了FTP的GetFileTime方法有时无法正确取得文件时间的问题。
3、修正了FTP不能使用又拍云的FTP问题
4、代码编辑器加上了执行SQL的功能。
5、加载树有个细节改进：双击当前节点，可以重载当前数据，等于加上了刷新当前页的功能。
6、设计窗口时，FileManager、PictureViewer、PicutreBox可以对本地存储属性进行设置了(之前只能设置远程属性)。
7、修正ExcuteReader(True)生成的内部表，无法保存新增行的问题。
8、自定义函数管理器中的函数，现在按字母顺序排序，而不是按增加顺序排序。
9、修正了用logform.txt定义登陆窗口时，如果图片偏大或偏小，登陆窗口不能居中的问题。

10、Syscmd.Project.Update现在可以返回值了，如果升级成功返回True，否则返回False，参考下面的说明：

 

如果我们在AfterOpenProject下面的代码：

 

Syscmd.Project.Update(False,False)
Forms("窗口1").Open() '可能会出错

 

目的是希望打开项目的时候自动升级，然后打开窗口1。

但是上述代码肯定会在升级成功之后提示错误，因为一旦升级成功，Foxtable就会关闭，后面的打开窗口代码就会出错。
我们可以用下面的代码避免错误：

 

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
     Forms("窗口1").open()
End If

 

也就是说Update执行后会返回一个逻辑值，如果升级成功，返回True，否则返回False。

要的

用ftp管理器统一上传。

我昨天尝试了加上传按钮，但是否决了。

因为步骤如下： 单击上传，选择本地文件，单击确定后，出现ftp窗口，选择远程目录，单击确定按钮，开始上传，显然并不见得简化了多少。

把代码贴出来。

我测试没有问题：

 

 

Dim t2 As Table  = Tables("订单")
Dim bh As String = "PD01"
t2.Filter = "产品 = '" & bh & "'"

 

呵呵，你何必和自己过不去？