Foxtable(狐表)用户栏目专家坐堂 → 图片显示和复制


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

主题:图片显示和复制

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
图片显示和复制  发帖心情 Post By:2014/8/23 19:56:00 [显示全部帖子]

感谢大家!那个按钮添加复制到制定文件夹后还能显示到窗口啊!感谢 感谢 现在能复制到指定的文件夹内,但是窗口绑定控件不显示,感谢 大家!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片显示和复制.zip

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


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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/24 8:52:00 [显示全部帖子]

谢谢 代码少了一段 可以了 谢谢

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/24 9:55:00 [显示全部帖子]

为什么每次重新打开后不能显示!只有到项目属性事件AfterOpenProject里面重新点击确认后才能显示啊!感谢 感谢 !
感觉每次都要刷新AfterOpenProject里面的代码才能显示?


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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/24 16:56:00 [显示全部帖子]

是这样的!用着没问题!只是如果设计窗口的程序在项目事件的后面就不能显示,如果事件项目的代码重新确定一下就好了!这个是因为什么原因啊!

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/25 9:18:00 [显示全部帖子]

能帮我看看代码吗?我用其他电脑还是一样!感谢 感谢 

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/25 10:01:00 [显示全部帖子]

如果出现这种问题都是试用期到了吗?感谢 感谢 
SubString('00000', 1, 5 - Len(Convert([_Identify],'System.String'))) + Convert([_Identify], 'System.String')
这个编号不从1开始显示也是吗?感谢 感谢 !哦 我把代码贴出来帮我看看!行吗? 
DataTables("名片夹").DataCols("相片").DefaultFolder = ProjectPath & "联系人相片管理"

For Each frm As WinForm.Form In Forms '关闭本表其他窗口
    If frm.TableName = e.Form.TableName AndAlso frm.Opened Then
        If frm.Name <> "名片显示窗口" AndAlso frm.Name <> e.Form.Name Then
            frm.Close
        End If
    End If
Next
Dim cs As String = ""
For Each c As Col In Tables("名片夹").Cols
    cs &= c.Name & "|"
Next
e.Form.Controls("ComboBox3").ComboList = cs.TrimEnd("|")
e.Form.Controls("Table1").Table.Filter = "1=2"

还是事件写错地方了啊!感谢 感谢 

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/25 11:06:00 [显示全部帖子]

有点甜! 我知道是什么原因了!谢谢你!因为那个代码的编号是根据表格增加了多少来编的,包括了其中删除的,所以就不是从1开始的!
有没什么办法重新从1还是编号!
还有就是如果设计了窗口后 相片就不会显示了!感谢你!谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图片显示和复制.zip



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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/25 11:42:00 [显示全部帖子]

太感谢了!如果生成的编号不是从1开始的有没什么办, 最开始还是,后来前面几行测试被删除了几行,编号就不从1开始了!用什么办法可以解决啊!感谢 感谢 
[此贴子已经被作者于2014-8-25 11:48:30编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
  发帖心情 Post By:2014/8/25 21:53:00 [显示全部帖子]

不管是重新写代码还换列写代码  代码都是还是从最先的那个编号还是编号
感谢 感谢 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:档案.table


 回到顶部