外部数据表中有一个条码库信息表,有3w多行数据，所以在系统启动时此表并未加载任何数据，以下是代码，想实现的功能是输入条码号后，相对应的品牌，产品类型等相符合的字段可以自动填写到销售表对应字段中，但用以下代码并无任何反应，求大神们帮忙看一看，谢谢！
If e.Table.Current Is Nothing Then '如果Current为Nothing
Return '则返回
End If
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 3:54:00 [显示全部帖子]
