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

 直接在单元格显示？这个就需要编写drawcell事件了。

 参考 http://www.foxtable.com/help/topics/2387.htm

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，以此類推。

 3楼这样也可以，不过，这种不会重绘，如果你对表进行了筛选等操作之后，需要重新设置一遍。

Dim o As Objec = Tables("表A").grid.GetCellRange(2,3,2,3)
o.Image = getimage("d:\001.ico")

你一行里面不是有一个图片列么？直接这样写，就可以了的。

If e.Col.Name = "图片" Then

    e.Graphics.DrawImage(getImage(e.row("图片")), e.x + 3,e.y + 3) '绘制第一个图标

End If

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

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的單元格背景圖繪製

3楼的代码，是需要你循环一次，去设置的，可以放在一个按钮里，或者afterOpenProject事件，代码类似

For Each r As Row In Tables("xxx").Rows  

    Dim o As Objec = Tables("xxx").grid.GetCellRange(r.Index+1, 3, r.Index+1, 3)
    o.Image = getimage("d:\001.ico")

Next