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


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

主题:获取单元格的列名

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/2/18 20:52:00 [只看该作者]

Syscmd.Project.Update(False,False)


升级完毕会有提示重启项目



升级完毕会这样才能自动打开登入窗口


 回到顶部
帅哥,在线噢!
有点蓝
  52楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

什么意思?

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/2/19 15:14:00 [只看该作者]

Dim sj As String = zt_SJ
    If sj <> "" And sj <> "无" Then
        UpdatePath=sj
        try  '判断是否执行事件
        Syscmd.Project.Update(False,False)
        '升级后自动打开程序登入窗口'代码无效
        'If Syscmd.Project.Update(False,False) = True Then  '如果有升级
        
        'End If
    catch   '暂停所有事件
        MessageBox.Show("升级失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End try


升级后,自动打开登入窗口

 回到顶部
帅哥,在线噢!
有点蓝
  54楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/19 15:22:00 [只看该作者]

Dim sj As String = zt_SJ
    If sj <> "" And sj <> "无" Then
        UpdatePath=sj
        try  '判断是否执行事件
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    
Forms("窗口1").open()
    
'后续其它代码
End
 If
    catch   '暂停所有事件
        MessageBox.Show("升级失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End try


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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/2/28 9:03:00 [只看该作者]

Dim frm As WinForm.Form
Dim File As String = ProjectFile
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    If FileSys.FileExists(File) Then '如果文件已经存在
        frm.Open(File) '则打开
    End If
End If


升级后自动打开登记窗口,好像无效

 回到顶部
帅哥,在线噢!
有点蓝
  56楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If FileSys.FileExists(File) Then '如果文件已经存在

这句去掉,没有一点用处,效果还相反

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/3/1 11:27:00 [只看该作者]

Dim ifo As new FileInfo("c:\data\123.xls")

Output.Show("文件创建时间:" & ifo.CreationTime)



得到的结果,为什么是  1601-01-01 08:00:00




原因找到,路径问题

[此贴子已经被作者于2020/3/1 11:43:51编辑过]

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/3/14 21:04:00 [只看该作者]

有一段经纬度数据,怎样生成百度轨迹API,楼主给个思路
想实现轨迹回放一样的功能
28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712709,120.655162;28.712709,120.655162;28.728051,120.637537;28.711075,120.654829;28.711075,120.654829;28.711075,120.654829;28.728043,120.637518;28.728043,120.637518;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712709,120.655162;28.712709,120.655162;28.728051,120.637537;28.711075,120.654829;28.711075,120.654829;28.711075,120.654829;28.728043,120.637518;28.728043,120.637518;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712363,120.642688;28.712709,120.655162;28.712709,120.655162;28.728051,120.637537;28.711075,120.654829;28.711075,120.654829;28.711075,120.654829;28.728043,120.637518;28.728043,120.637518;28.712363,120.642688;
[此贴子已经被作者于2020/3/14 21:04:53编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  59楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/15 20:17:00 [只看该作者]

没做过,我也不懂。请去研究相关API的使用文档

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