呃...
cnt = DataTables("B表").SQLReplaceFor("成交日期", e.DataRow("交易日期") , "SHOPING= '"& e.DataRow("SHOPING") &"'")