专家坐堂-[分享]在窗口中新增记录并使用FTP上传文件，PictureViewer控件中同步显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [分享]在窗口中新增记录并使用FTP上传文件，PictureViewer控件中同步显示

经过二天的折腾，在蓝版主的顶力帮助下，终于搞明白一些FTP的怎么回事了，现将成果放上来，让新人看下

说明：此例子的真正目的如下：

使用SQL数据库，后台有一个公司名表(例子中就叫表A)，项目打开时不用加载，在窗口中设置一些文本框控件，与表中字段一一对应，同时表中有个【附件】列，在窗口中点“新增”按钮，就在后台新增一行，将文本框的值写到这个新增的记录中并保存记录，这时，就能对此条记录中的附件列上传图片了，图片上传后在PictureViewer控件中立即能显示，当然也能删除，就用PictureViewer控件中的增加与删除二个按钮来操作

窗口中的table表在实际使用中可以设置成隐藏，在窗口中找个地方一扔就行了，不用让用户看到，因为表A实际并未加载，你就当是一张临时表吧，而PictureViewer控件中绑定字段必须是到一张table表，所以只能在窗口中放入一张table表并且不让用户看到。

我对表A的处理是这样的：

在项目的登录按钮中：

\'批量卸载表，就加载了我项目的必须要加载的三张表，其他表全部卸载掉，以下代码是我项目中的实际使用代码，给作个参考

Dim dtname As String

For Each dt As DataTable In DataTables

If dt.Name = "Main" OrElse dt.Name = "Help" OrElse dt.Name = "参数表" Then

dtname = dtname

Else dtname = dtname & "|" & dt.name

End If

If dtname IsNot Nothing Then

DataTables.Unload(dtname.trim("|") )

End If

每张项目中的表，我会做这样的设置，这样在项目打开时就快多了：

此主题相关图片如下：11.jpg

全局代码中设置全局变量： Public _dt表A As DataTable

在项目事件Initialize中：

Dim cmd_表A As New SQLCommand

cmd_表A.C

cmd_表A.C ommandText = "S elect * From {表A} Where [_Identify] Is Null"

_dt表A = cmd_表A.ExecuteReader(True)

这样，在例子中，所有用到 DataTables("表A") 的地方就用“_dt表A”来替代

以下内容只有回复后才可以浏览

[此贴子已经被作者于2020/4/8 14:35:09编辑过]