'=======增加临时市内入围编号统计表=========
Dim dtb As New DataTableBuilder("入围编号统计表1")
dtb.AddDef("市内入围_编号", Gettype(Integer))
dtb.AddDef("市内入围_次数", Gettype(Integer))
dtb.AddDef("市内入围_比例", Gettype(Single))
'dtb.Build() '显示临时统计表
Dim tb1 As Table = Tables("抽签入围台帐_Table3")
tb1.DataSource = dtb.BuildDataSource()
'================界面调整=================
tb1.SetColVisibleWidth("市内入围_编号|80|市内入围_次数|80|市内入围_比例|80")
tb1.DefaultRowHeight = 32
tb1.Cols("市内入围_比例").DataCol.SetFormat("0.00%")
Dim tb As Table = Tables("抽签入围台帐_Table01")
Dim tb3 As Table = Tables("抽签入围台帐_Table3")
Dim cnt As Integer
Dim lst As New List(Of String)
For Each rw As Row In tb.Rows
For Each a As String In rw("市内家数_汇总").split(",")
If lst.Contains(a) = False Then
lst.add(a)
End If
Next
Next
'msgbox(String.Join("|", ls.ToArray))
Dim ndr As Row
For Each nn As String In lst
ndr = tb3.AddNew()
ndr("市内入围_编号") = nn
Next
For Each rw As Row In tb3.Rows
If rw.IsNull("市内入围_编号") = False Then
rw("市内入围_次数") = tb.DataTable.Compute("Count(市内家数_汇总)","(',' + 市内入围_编号 + ',') like '%," & rw("市内入围_编号") & ",%'")
End If
Next
执行上面代码出现下面错误提示：
.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.7.9.1
错误所在事件：窗口,抽签入围台帐,Button2,Click
详细错误信息：
未找到列 [市内入围_编号]。
加好友 
发短信
Post By：2018/7/16 1:08:00 [只看该作者]
此主题相关图片如下：777.png