主题：加载无反应的问题

正常应该这样的：

....
cmd.CommandText = "SELECT[_identify],品牌,产品类型,尺码,颜色,挂牌价,款号 from {条码库信息} where 条码号 = '" & e.Table.current("条码号") & "'"
dt = cmd.ExecuteReader()
if dt.DataRows.Count > 0 then
    Dim dr As DataRow = dt.datarows(0)
    Dim r As Row = Tables("销售表").current
    r("条码号") = dr("条码号")
    r("品牌") = dr("品牌")
    r("产品类型") = dr("产品类型")
    r("尺码")=dr("尺码")
    r("颜色")=dr("颜色")
    r("挂牌价")=dr("挂牌价")
    r("款号") = dr("款号")
end if