Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT[_identify],品牌,产品类型,尺码,颜色,挂牌价,款号 from {条码库信息} where 条码号 = '" & e.Table.current("条码号") & "'"
dt = cmd.ExecuteReader()
Dim dr As DataRow
dr = DataTables("条码库信息").Find("[条码号] = '" & e.Table.Current("条码号") & "'")
Dim r As Row = Tables("销售表").current
If dr IsNot Nothing Then
r("条码号") = dr("条码号")
r("品牌") = dr("品牌")
r("产品类型") = dr("产品类型")
r("尺码")=dr("尺码")
r("颜色")=dr("颜色")
r("挂牌价")=dr("挂牌价")
r("款号") = dr("款号")
End If
加好友 
发短信
Post By：2013/11/6 8:06:00 [显示全部帖子]
