If e.DataCol.Name = "货物编号" Then
If e.NewValue > "" AndAlso e.NewValue.length > 19 Then
Dim sql As new SQLCommand
Dim lsb As DataTable
sql.C
sql.CommandText = "se/ect * fr0m {产品基础货号表} where 基础货号 = '" & e.NewValue.Substring(0,10) & "'"
lsb = sql.ExecuteReader
If lsb.DataRows.Count > 0
If lsb.DataRows(0)("毛重") = 0 Then