以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教:动态新增列如何做?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4714)

--  作者:yangming
--  发布时间:2009/10/22 10:21:00
--  求教:动态新增列如何做?
新增列的代码一般是这样的:DataTables("员工档案").DataCols.Add("AA", GetType(String))
现在我想动态增加,就是在某表的两个列,一个是名称,一个是类型,我做成这样,但是无法实现
DataTables("员工档案").DataCols.Add(dr("名称"),GetType(dr("类型")))

我将类型列设成:GetType("" & e.Form.Controls("ComboBox1").Value & ""),代码改成下面这样,也不行

DataTables("员工档案").DataCols.Add(dr("名称"),dr("类型"))
请教,应该如何写代码?

--  作者:狐狸爸爸
--  发布时间:2009/10/22 10:29:00
--  

Select Case dr("类型")
   Case "String"
      DataTables("员工档案").DataCols.Add(dr("名称"), GetType(String))
   Case "Double"
      DataTables("员工档案").DataCols.Add(dr("名称"), GetType(Double))

....

End Select
  


--  作者:菜鸟foxtable
--  发布时间:2009/10/22 10:40:00
--  
学习了。强!这样的系统让人期待,杨版有空做个小示例上来学习学习。
--  作者:yangming
--  发布时间:2009/10/22 10:42:00
--  
以下是引用狐狸爸爸在2009-10-22 10:29:00的发言:

Select Case dr("类型")
   Case "String"
      DataTables("员工档案").DataCols.Add(dr("名称"), GetType(String))
   Case "Double"
      DataTables("员工档案").DataCols.Add(dr("名称"), GetType(Double))

....

End Select
  

我试试,呵呵


--  作者:yangming
--  发布时间:2009/10/22 10:43:00
--  
以下是引用菜鸟foxtable在2009-10-22 10:40:00的发言:
学习了。强!这样的系统让人期待,杨版有空做个小示例上来学习学习。

有空做一个,呵呵


--  作者:yangming
--  发布时间:2009/10/22 11:05:00
--  
贺老师,我发现一个问题,使用二楼的代码,新增的列怎么都是表达式列?我并没有设置表达式啊
--  作者:czy
--  发布时间:2009/10/22 13:11:00
--  
呵呵,狐表只能增加临时列(表达式列)
--  作者:yangming
--  发布时间:2009/10/22 13:23:00
--  
是的,只能是增加临时列,但是我可以让他做成永久列啊,呵呵
--  作者:521002003
--  发布时间:2011/12/22 11:06:00
--  

怎么增加永久列啊?


--  作者:czy
--  发布时间:2011/12/22 11:15:00
--  

参考:

 

http://www.foxtable.com/help/topics/2122.htm