主题：插入列

没有办法写代码，也就没有办法用命令或菜单的方法实现，只能后一种方法了

 

由于需要增加的很多，我想法是把需要添加列的项目写一个表中，然后使用代码在需要的表中修改标题及数据类型，参考了例子中的一段代码，有两个问题，一是这段代码还有问题不能执行，不知道怎么改；二是如何从表中提取数据然后转另外一表的列标题

Dim cls() As String = {"国家","人口","面积","语言","宗教","洲"} '指定要显示的各列
Dim wds() As Integer = {100,100,130,80,80,80} '定义列宽
For i As Integer = 0 To  cls.Length - 1
    Dim c As List(of DataCol )=DataTables("资产表").DataCols
    c.Name = cls(i) '指定列名
    c.Text = cls(i)'指定列标题
    c.Width = wds(i) '指定列宽
Next

1、重新build一下  http://www.foxtable.com/help/topics/1275.htm

 

2、直接用select查询 http://www.foxtable.com/help/topics/0400.htm

 

例子中是DataTables("资产表").DataCols("第一列").Caption \DataTables("资产表").DataCols("第二列").Caption等以此类推， 我想用i代替列名称，可以吗？这做可以简化也便于维护

Dim cls() As String = {"国家","人口","面积","语言","宗教","洲"} '指定要显示的各列
Dim wds() As Integer = {100,100,130,80,80,80} '定义列宽
For i As Integer = 0 To  cls.Length - 1
        DataTables("资产表").DataCols(i).Caption = cls(i)

Next

另外列的数据类型怎么设置

drs = DataTables("订单").Select("[产品] = 'PD01' And [日期]= #1/4/1999#")   select筛选某列符合一定条件的值，要筛选全部怎么写

 

列的标题可以用代码修改，列的名称没有办法改吗，怎么说name属性是只读的

从类型“Date”到类型“Double”的转换无效

用这个增加列：