主题：[求助]跨引用自动编码

以下内容为程序代码:

1 Dim de As DataRow
2 Dim a1 As String
3 Dim a2 As String
4 Dim a3 As String
5 Dim a4 As String
6 Dim dr As DataRow = e.DataRow
7 Select Case e.DataCol.Name
8 Case "产品规格" , "产品类目", "大小", "产品材质" ,"产品简称"
9 If dr.IsNull("产品规格") OrElse dr.IsNull("产品简称") OrElse dr.IsNull("产品材质") OrElse dr.IsNull("大小") OrElse dr.IsNull("产品类目") Then
10 dr("产品名称") = Nothing
11 dr("产品ID") = Nothing
12 Else
13 Dim Parts() As String = {dr("产品材质"),dr("产品简称") ,dr("产品规格"),dr("大小")}
14 Dim Str1 As String
15 Str1 = String.Join("-", Parts)
16 dr("产品名称") = Str1
17 de = DataTables("产品编码").find("材质 = '"& e.datarow("产品材质")&"'")
18 If de IsNot Nothing Then '如果找到, 则设置各列内容
19 a1= de("材质ID")
20 End If
21 de = DataTables("产品编码").find("规格 = '"& e.datarow("产品规格")&"'")
22 If de IsNot Nothing Then '如果找到, 则设置各列内容
23 a2= de("规格ID")
24 End If
25 Dim d1 As String
26 d1 = e.DataRow("产品类目")
27 a3 = dr("产品类目") & "ID"
28 If dr.Isnull("产品规格") OrElse dr.Isnull("产品简称") Then
29 de = DataTables("产品编码").find( "d1 = '"& e.datarow("产品简称")&"'")
30 If de IsNot Nothing Then '如果找到, 则设置各列内容
31 a4 = de("茶台ID")
32 End If
33 End If
34 If dr.Isnull("大小") Then
35 dr("产品ID") =Nothing
36 End If
37 MessageBox.show(a4)
38 Dim Parts2() As String = {a1,a4,a2,dr("大小")}
39 Dim Str2 As String
40 Str2 = String.Join("-", Parts2)
41 dr("产品ID") = Str2
42 End If
43 End Select