主题：关于FILL

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

 

此公式放在：

SelectedIndexChanged

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

 

 

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

 

 

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

上一个版本用的好好的，新版本出了问题．

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

 

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

老六真有意思，消除一个bug又带来新的bug。

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

 

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版本中下载文件中是否已更正．

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