试试,如果还有问题,肯定不是这里代码的原因,检查其它代码
Dim t As Table 't为窗口查询表
t=e.Form.Controls("Table1").Table
Dim cmd As new SQLCommand
cmd.ConnectionName = "aaa"
Dim dt As DataTable
cmd.CommandText = "S e l e c t * From {表A} Where [_Identify] Is not null" '生成表
dt = c m d.ExecuteReader(True) '记得将参数设置为True
t.DataSource =dt
For Each dr As Row in t.Rows
dr("标识") = True
Next
t.Save