Foxtable(狐表)用户栏目专家坐堂 → [求助]取值获取定位问题


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

主题:[求助]取值获取定位问题

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


加好友 发短信
等级:幼狐 帖子:73 积分:2375 威望:0 精华:0 注册:2016/2/22 11:31:00
[求助]取值获取定位问题  发帖心情 Post By:2016/4/1 12:39:00 [只看该作者]

求助大神,我现在做了一个窗体,里面用到一个图片控件PictureBox。绑定到了表中的一列,已展示该列对应行的图片,但因为我填写完毕以后点击新增行,图片展示就不见了,。现在我想实现的是,图片控件延迟一行显示,比如,我在填写第十行的时候,图片控件获取并展示第九行的数据的图片。。点击新增一行,填写11行的时候,图片展示第十行的数据图片,请问这个可以办到吗?
[此贴子已经被作者于2016/4/1 12:39:55编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/1 14:49:00 [只看该作者]

 那你的图片控件不要绑定列,直接赋值吧。

 

Dim r As Row = Tables("表A").Current
If r IsNot Nothing
    Dim idx As Integer = iif(r.Index>0, r.Index-1, 0)
    r = Tables("表A").Rows(idx)
    Dim p As String = ProjectPath & "Attachments/" & r("第一列")
    If FileSys.FileExists(p)
        e.Form.Controls("PictureBox1").Image = getimage(p)
    Else
        e.Form.Controls("PictureBox1").Image = Nothing
    End If
End If


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


加好友 发短信
等级:幼狐 帖子:73 积分:2375 威望:0 精华:0 注册:2016/2/22 11:31:00
  发帖心情 Post By:2016/4/2 13:50:00 [只看该作者]

版主我刚刚测试了一下,没成功,不知道是不是哪里没设置对,还是赋值的地方没对,我在窗AfterLoad和图片控件的BeforeGetImage都测试了,还是不。行我取值的列是表的第九列,列属性为字符,是不是需要设置成扩展图片类型,产生的数据是指定文件包的图片的图片名,我比较菜,能给我一个具体一点的步骤吗,,填写的时候新增行是空值,这个时候行定位是在新增行上面的,但窗体控件要显示的是上一行的所对应的数据的图片,也可以是定位为第九列最有一个不为空的值,麻烦帮我写下,十分谢谢你,

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/4/2 15:43:00 [只看该作者]

写在新增行按钮事件或者窗口AfterLoad事件中

Dim dr As DataRow = DataTables("表A").Find("第九列 is not null","_Identify desc")
If dr IsNot Nothing Then
    Dim p As String = ProjectPath & "指定路径\" & dr("第九列") '改成实际目录路径
    If FileSys.FileExists(p)
        e.Form.Controls("PictureBox1").Image = getimage(p)
    Else
        e.Form.Controls("PictureBox1").Image = Nothing
    End If
End If
    


 回到顶部