.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:
详细错误信息:
集合已修改;可能无法执行枚举操作。
Dim fi As String
If e.Form.Controls("VTextfi").text > "" Then
Fi = "sele ct * from {" & e.Form.Controls("Txt数据视图").text & "} where fid = 1 And " & e.Form.Controls("VTextfi").text
Else
Fi = "sel ect * from {" & e.Form.Controls("Txt数据视图").text & "} where Itid is not null and Fid = 1"
End If
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.Fill(fi,"Zc_Data",True)
Dim cmd As new SQLCommand
cmd.C
cmd.Comma ndText = Fi
tb.DataSource = cmd.ExecuteReader