第一个问题,下次更新后不会再有了。
第二个问题,代码换一下位置:
Dim tb as Table = Tables("窗口3_Table1")
tb.Fill("Select * from 表1","abc",False)
tb.AllowEdit = true
With DataTables("窗口3_Table1")
.DataCols.Add("可发数量", GetType(Double))
.DataCols.Add("可发金额", GetType(Double))
.DataCols("b").Decimals = 6
.DataCols("b").SetFormat("0.000000")
.DataCols("c").Decimals = 6
.DataCols("c").SetFormat("0.000000")
.DataCols("d").Decimals = 6
.DataCols("d").SetFormat("0.000000")
.DataCols("e").Decimals = 6
.DataCols("e").SetFormat("0.000000")
.DataCols("f").Decimals = 6
.DataCols("F").SetFormat("0.000000")
end with