Dim dt As DataTableDim cmd As new SQLCommandcmd.Connecttionname = "erp"cmd.CommandText="select * from aeg00000 where centercode='0100' "
dt=cmd.ExecuteReader
DataTables("gride").fill("select a.planid,b.classa from {dt},a {gridc} b where a.itemcode=b.itemcode",True)
gridc ,gride为内部表