请各位老师帮我看一下如下公式：

此公式放在：

SelectedIndexChanged

选择不同列表项目后执行。

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Dim s As String = "发票号 Is Null Or 发票号 = \'\'"
Tables("发票登记_Table2").Fill("Select [_Identify],[公司简称],[工作号],[费用名称],[币制],[金额],[余额],[发票号] From {费用管理} where ([发票号] Is Null Or [发票号] = \'\') and 公司简称 = \'" & cm.value & "\' and 类别 = \'应付\'","myacc",True)
DataTables("发票登记_Table2").dataCols.Add("变更", Gettype(String))
DataTables("发票登记_Table2").dataCols.Add("合计", Gettype(Double))
Tables("发票登记_Table2").SetColVisibleWidth("公司简称|100|工作号|90|费用名称|100|币制|55|金额|60|余额|60|发票号|60|变更|50|合计|60")

今天出现怪现象，公式执行行，所有表的行号不见了，主菜单上　功能区按钮能用，功能组上的所有按钮均不能用．为何？？

DataTables("发票登记_Table2").dataCols.Add("变更", Gettype(String))
DataTables("发票登记_Table2").dataCols.Add("合计", Gettype(Double))

经查明，是datacols.add出问题．

楼主做个例子看看，我在我的电脑测试没有问题：

Tables("窗口1_Table1").fill("Select *  From {订单}", "abc",True)
DataTables("窗口1_Table1").dataCols.Add("变更", Gettype(String))
DataTables("窗口1_Table1").dataCols.Add("合计", Gettype(Double))

那就怪了，我只需DataTables("表A").dataCols.Add("x", Gettype(String))就行。

之前的版本测试过没有问题。

明白了，是我搞错了

搞定，下次不会了

狐爸，1119版本中下载文件中是否已更正．

现公司财务部已没办法工作了．这二天都是用手记，等系统好了再录入．