-- 作者：bbnnmm2015
-- 发布时间：2015/8/4 9:11:00
-- 关于FIND语句
请教专家，下面一段代码总出错，
For Each r As Row In Tables("指定配送耗材_table1").GetCheckedRows()
Dim dr As Row = Tables("配送公司供货信息2").AddNew
Dim kr As Row = Tables("三方配送协议").AddNew
Dim AA As String
With e.Form.Controls("TextBox2")
If .Value IsNot Nothing Then
AA = e.Form.Controls("TextBox2").Value
End If
End With
Dim BB As String
Dim CC As String
Dim DD As String
With e.Form.Controls("TextBox1")
If .Value IsNot Nothing Then
BB= e.Form.Controls("TextBox1").Value
CC= r("厂家代码")
DD= BB & CC
End If
End With
dr("品种分类") = r("品种分类")
dr("目录编码") = r("目录编码")
dr("目录名称") = r("目录名称")
dr("产品编码") = r("产品编码")
dr("产品名称") = r("产品名称")
dr("注册证产品名称") = r("注册证产品名称")
dr("规格") = r("规格")
dr("型号") = r("型号")
dr("计量单位") = r("计量单位")
dr("包装规格") = r("包装规格")
dr("品牌") = r("品牌")
dr("注册证号") = r("注册证号")
dr("投标企业") = r("投标企业")
dr("生产企业") = r("生产企业")
dr("质量层次") = r("质量层次")
dr("中标价") = r("中标价")
dr("配送公司名称") = AA
dr("配送代码") = DD
Dim mr As DataRow
mr = DataTables("三方配送协议").Find("配送代码 = DD " )---------就是这行出错
|