- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 获取单元格的列名 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141142)
-- 发布时间：2019/9/22 16:43:00
-- 获取单元格的列名
鼠标点击单元格，如何获取单元格的列名
-- 发布时间：2019/9/22 19:55:00
--
工具栏中，点 其他\\查看表结构
-- 发布时间：2019/9/22 20:42:00
--
msgbox(tables("表A").cols(tables("表A").colsel).name)
-- 发布时间：2019/9/28 10:45:00
--
If dr2 IsNot Nothing Then
Dim Pr2 As List(Of String) = dt2.GetValues("保洁内容")
Dim v2 As String
For Each v2 In Pr2
v2 = e.Row("绿化记录") & v2
Next
e.Row("绿化记录") = v2
End If
取加载表中"保洁内容"列所有的值，附值到当前表绿化记录列
-- 发布时间：2019/9/28 10:52:00
--
If dr2 IsNot Nothing Then
e.Row("绿化记录") = .Row("绿化记录") & dt2.GetComboListString("保洁内容")
End If
-- 发布时间：2019/10/11 19:33:00
--
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = "http://183.131.126.97:8022/PmpPatrol/PmpComRepWeb/PatrolManage_TZ/Sys_Manage/Sys_MediaInfoMap.aspx?type=4&id=315787"
上面地址在网页打开正常
放到窗口的Afterload中就出错
此主题相关图片如下：qq拼音截图未命名1.png
此主题相关图片如下：qq拼音截图未命名2.png
-- 发布时间：2019/10/11 20:44:00
--
更新浏览器控件内核：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=99436
-- 发布时间：2019/10/13 9:24:00
--
DataColChanged
If e.DataCol.Name = "结束时间" Then \'如果更改的是巡查用时列
If e.DataRow.IsNull("结束时间") = False Then
Dim d As Date = e.DataRow("结束时间")
e.DataRow("巡查时间") = Format(d, "t")
End If
End If
为什么得到的结果是 0.00
-- 发布时间：2019/10/13 22:01:00
--
| t | 使用区域设置的短时间格式显示时间。 例如： Format(#12/31/2008 12:30:45#, "t") \'12:30 |
-- 发布时间：2019/10/19 17:26:00
--
\'图片管理,禁用删除
Dim ml As String = vars("rq") \'获取文件夹
Dim lj As String = vars("lj") \'获取文件路径
Dim pv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
Dim fls As List(of String)
Dim ftp As New FTPClient
ftp.Port = vars("FTP_端口")
ftp.host = vars("FTP_ip地址")
ftp.Account = vars("FTP_账号")
ftp.password = vars("FTP_密码")
pv.FTPclient = ftp
fls = ftp.GetFileList(lj & "\\" & ml)
If ftp.DirExists(ml) Then \'判断文件夹是否存在
\'ftp.RootDir = lj & ml \'设置根目录
pv.DeleteCommand.Visible = False \'删除
pv.ClearCommand.Visible = False \'清除
pv.AddCommand.Visible = False \'增加
pv.ManagerCommand.Visible = False \'管理
pv.ConnectCommand.Visible = False \'重连
pv.StretchCommand.Visible = False \'缩放
For Each fl As String In fls
pv.AddFile(fl)
Next
End If
远程图片不显示，求解