Foxtable(狐表)用户栏目专家坐堂 → 获取单元格的列名


  共有6109人关注过本帖树形打印复制链接

主题:获取单元格的列名

帅哥哟,离线,有人找我吗?
zoyong
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
获取单元格的列名  发帖心情 Post By:2019/9/22 16:43:00 [只看该作者]

鼠标点击单元格,如何获取单元格的列名

 回到顶部
美女呀,离线,留言给我吧!
我是一片云
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:10 积分:137 威望:0 精华:0 注册:2019/9/20 11:01:00
  发帖心情 Post By:2019/9/22 19:55:00 [只看该作者]

工具栏中,点  其他\查看表结构

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/22 20:42:00 [只看该作者]

msgbox(tables("表A").cols(tables("表A").colsel).name)

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By: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


取加载表中"保洁内容"列所有的值,附值到当前表绿化记录列

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/28 10:52:00 [只看该作者]

If dr2 IsNot Nothing Then
    e.Row("绿化记录") = .Row("绿化记录") &  dt2.GetComboListString("保洁内容")
End If

 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By: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
图片点击可在新窗口打开查看





 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/11 20:44:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/13 22:01:00 [只看该作者]


t使用区域设置的短时间格式显示时间。

例如:

Format(#12/31/2008 12:30:45#, "t") '12:30


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By: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


远程图片不显示,求解

 回到顶部
总数 59 1 2 3 4 5 6 下一页