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