以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  FTP和图片管理器外网服务器地址是动态的  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151269)

--  作者:weibu
--  发布时间:2020/6/19 10:29:00
--  FTP和图片管理器外网服务器地址是动态的
老师我ftp和图片管理器服务器IP和用户名、密码、是从一个表中动态获取的。这个要如何处理?

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200619101909.png
图片点击可在新窗口打开查看


--  作者:cd_tdh
--  发布时间:2020/6/19 10:31:00
--  
这个?  http://www.foxtable.com/webhelp/topics/1898.htm
--  作者:weibu
--  发布时间:2020/6/19 10:46:00
--  
老师这段代码写在Afterload窗口事件中吗?
如果我动态变化的仅仅是密码和IP地址。账号和根目录相同。
我代码仅写:

Dim flm As WinForm.FileManager = e.Form.Controls("FileManager1")
Dim
 ftp As New FTPClient
ftp
.host="192.168.128.143"
ftp.password = "128168909"
flm
.FTPclient = ftp

而账号和根目录在控件属性的设置可以吗?



--  作者:有点蓝
--  发布时间:2020/6/19 10:54:00
--  
可以。注意设置必须和列属性的设置完全一致。这里改后,列属性也要同时更改:http://www.foxtable.com/webhelp/topics/1477.htm
--  作者:weibu
--  发布时间:2020/6/19 11:37:00
--  
老师不行链接不上。我没有代码全部在.PictureViewer的控件属性设置里填写:服务器地址、用户名、密码、根目录是可以正常使用的。
但是现在不能链接ftp了。
我的做法如下:
1.在PictureViewer所在窗口的Afterload添加代码:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200619113133.png
图片点击可在新窗口打开查看
2.在PictureViewer的属性如下设置:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200619112948.png
图片点击可在新窗口打开查看
3.在列属性中如下设置:

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200619113445.png
图片点击可在新窗口打开查看
4.在项目事件Initialize中加入下面的代码:
DataTables("rs_sourcecode").DataCols("qdocuments").FTPClient.host="39.123.159.123 "
DataTables("rs_sourcecode").DataCols("qdocuments").FTPClient.password = "ftp779_wb11616"
老师这个有问题吗?


--  作者:有点蓝
--  发布时间:2020/6/19 11:48:00
--  
ip地址后面有多余的空格

把用户名也在代码里填上

--  作者:weibu
--  发布时间:2020/6/19 12:09:00
--  
老师这是我是表A,列“地址”的一行中的值。
server=192.168.1.0;uid=sa;pwd=sa-gj3;database=wb

我想把这个单元格的值,解析为变量r=192.168.1.0;变量t=sa-gj3
这个代码该如何写?


另外我想写个代码:如果列“123”不存在的if语句怎么写?
[此贴子已经被作者于2020/6/19 12:10:26编辑过]

--  作者:有点蓝
--  发布时间:2020/6/19 13:33:00
--  
1、参考:http://www.foxtable.com/webhelp/topics/1338.htm
dim s as string = "server=192.168.1.0;uid=sa;pwd=sa-gj3;database=wb"
dim ar() as string = s.split(";")
msgbox(ar(0))

if DataTables("订单").DataCols.Contains("123")=false

--  作者:weibu
--  发布时间:2020/6/19 14:38:00
--  
Dim s As String = "server=192.168.1.0;uid=sa;pwd=sa-gj3;database=wb"
Dim ar() As String = s.split(";")
Dim r As String = ar(0)
r = r.Trim("server=")

老师这个我想删除server= 为啥删除了s?

--  作者:有点蓝
--  发布时间:2020/6/19 14:51:00
--  
Trim只能处理单个字符,用replace,或者substring