Foxtable(狐表)用户栏目专家坐堂 → [求助]能否在数据表的照片列中直接显示人员头像?


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

主题:[求助]能否在数据表的照片列中直接显示人员头像?

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


加好友 发短信
等级:一尾狐 帖子:480 积分:3838 威望:0 精华:0 注册:2011/5/31 15:45:00
  发帖心情 Post By:2014/4/28 20:15:00 [显示全部帖子]

Dim r As Row = CurrentTable.Current

Dim pic As Image = GetImage(相片路徑)

Dim rg As C1.Win.C1FlexGrid.CellRange = CurrentTable.Grid.GetCellRange(r.Index+1, CurrentTable.Cols(“相片顯示列”).Index+1, r.Index+1, CurrentTable.Cols(“相片顯示列”).Index+1)
rg.Image = pic

 

其中的+1為行標題層次及行號列,行標題2層就要+2,以此類推。

[此贴子已经被作者于2014-4-28 20:20:48编辑过]

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


加好友 发短信
等级:一尾狐 帖子:480 积分:3838 威望:0 精华:0 注册:2011/5/31 15:45:00
  发帖心情 Post By:2014/4/28 20:33:00 [显示全部帖子]

代碼放在數據加載完之後,比如在加載按鈕裡加上以下代碼

With Tables("員工信息表")

    For Each r as row in .Rows

    Dim pic As Image = GetImage(r(“相片地址列”))     '得本機地址局域網地址,如果是FTP網絡地址可以先下載至本機

    Dim rg As C1.Win.C1FlexGrid.CellRange = .Grid.GetCellRange(r.Index+1, .Cols(“相片顯示列”).Index+1,r.Index+1, .Cols(“相片顯示列”).Index+1)
    rg.Image = pic

    Next

End With

採用的是C1的單元格背景圖繪製

[此贴子已经被作者于2014-4-28 20:38:26编辑过]

 回到顶部