主题：[求助]临时表的Reject

要这样测试

Dim q As new QueryBuilder
q.TableName = "测试"
q.SelectString = "Select '' as test from {表A}"
q.Build
Dim dt As DataTable = DataTables("测试")
dt.AllowEdit = True
dt.datacols.Add("第二列", Gettype(String))
Dim ndr As DataRow = dt.addnew
ndr("第二列") = "123456"
msgbox(123)
ndr.Reject

有_Locked列，没有_Identify、_Sortkey列，你可以动态添加那些列，如

q.SelectString = "Select _Identify, _Sortkey, _Locked, 其它列 as test from {表A}"

1、可以用sqlTable或者sqlQuery，也就是直接fill进去，然后增加列。

2、也可以用queryBuilder添加表，然后绑定进去，但事件代码需要写到【全局表】事件。

我这样测试没问题

Tables("窗口1_table2").fill("select * from {表A}", False)
Tables("窗口1_table2").AllowEdit = True

---------------------

Tables("窗口1_table2").DataTable.ReplaceFor("_locked", True)

改成true

Tables("窗口1_table2").Fill(str,sjy99,true)

去掉中括号

Tables("窗口1_table2").DataTable.ReplaceFor("_locked", True)

测试你的例子，没问题，需要锁定的时候，就执行代码，一定有效

Tables("窗口1_table2").DataTable.ReplaceFor("_locked", True)

测试，没问题。请说明测试步骤或者单独做一个简单的例子发上来测试。

建议自己新建一个窗口单独测试功能吧，先理解代码再加到自己项目去。

add添加的列无效

Tables("窗口1_table2").DataTable.datacols.Add("controlatbold", Gettype(String))

改成在select语句那里添加列，如 Tables("窗口1_table2").fill("select *, '' as 临时列 from {表A}", True)