以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码新增表达式列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60909)
--  作者：ShotHit
--  发布时间：2014/12/3 21:09:00
--  代码新增表达式列
请问如何用代码新增表达式列？

测试代码 在AfterOpenProject中设置代码：

DataTables("User").DataCols.Add("memo“,GetType(Double),"")

With DataTables("User")
.DataCols("memo").Caption="备注"
End With


这个时候系统提示：memo不存在？

以上，谢谢。
--  作者：有点甜
--  发布时间：2014/12/3 21:17:00
--  
If DataTables("表A").DataCols.Contains("memo") = False Then
    DataTables("表A").DataCols.Add("memo",Gettype(Double),"")
End If
DataTables("表A").DataCols("memo").Caption = "备注"
DataTables("表A").BuildHeader
--  作者：ShotHit
--  发布时间：2014/12/3 21:24:00
--  
这个代码是放置在AfterOpenProject里面吗？

上面我发的代码，写掉了BuildHeader（）

代码应该和你这个一样，只是缺少列的判断。

一样会提示User 表  不存在  memo列
--  作者：有点甜
--  发布时间：2014/12/3 21:26:00
--  
 不可能是上面的代码有错，肯定不是。
--  作者：ShotHit
--  发布时间：2014/12/3 21:27:00
--  
恩。正确。
发现是有个列名称 字母错了。感谢。