以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教:取值的问题,  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22852)
--  作者：飞天
--  发布时间：2012/8/25 12:33:00
--  请教:取值的问题,

 

 

 

PrepareEdit 事件中

 

If e.Col.Name = "第三列" Then
     e.Col.Combolist = DataTables("表A").GetComboListString("第一列")
End If

 

以上代码.准备编辑"第三列"单元格的时候执行,获取表A的第一列的不重复的信息.如何加一个代码:能够让它显示第一列的值.取表A第二列的值?
--  作者：czy
--  发布时间：2012/8/25 12:44:00
--  
用数据字典吧
--  作者：czy
--  发布时间：2012/8/25 12:45:00
--  

改成这样试试

 

If e.Col.Name = "第三列" Then
    Dim dmp As New TableDataMap
    dmp.DataTable = "表A"
    dmp.ValueCol = "第一列"
    dmp.DisplayCol = "第二列"
    dmp.ListCols = "第一列,第二列"
    Tables("表A").Cols("第三列").DataMap = dmp.CreateDataMap()
End If