以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  导出excel出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66807)
--  作者：newsun2k
--  发布时间：2015/4/14 11:06:00
--  导出excel出错
我想对datamap的项目导出EXCEL时，导出的是显示值，我根据帮助改写成以下代码，但是老报错：
无法将类型为“C1.Win.C1FlexGrid.MultiColumnDictionary”的对象强制转换为类型“Foxtable.TableDataMap”。
但是我的表中下拉的都是用的数据表。
    For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
        For c As Integer = 0 To dt.Cols.Count - 1
            If dt.Cols(c).DataMap Is Nothing Then
                Sheet(r + 1, c).Value = dt.rows(r)(c)
            Else
                Dim dmp As New TableDataMap
                dmp = dt.Cols(c).DataMap
                Dim dr As DataRow = DataTables(dmp.DataTable).find(dmp.DisplayCol & " = \'" & dt.rows(r)(c) & "\'")
                If dr Is Nothing Then
                    Sheet(r + 1, c).Value = dt.rows(r)(c)
                Else
                    Sheet(r + 1, c).Value = dr(dmp.ValueCol)
                End If
            End If
        Next
    Next
    \'打开工作簿
    Book.Save(dlg.FileName)   
--  作者：Bin
--  发布时间：2015/4/14 11:23:00
--  
研究了一下,似乎获取不到.

建议你 做个全局变量字典集合来储存你设置的显示列和取值列,  然后此时用于判断