Select e.DataCol.Name
Case "旧项目号"
Dim dt,dt1,dt2 As DataTable
Dim cmd,cmd1,cmd2 As New SQLCommand
cmd.C
cmd1.C
cmd2.C
cmd.CommandText = "SELECT * Fr om {ERPcode} where 1=2"
cmd1.CommandText = "SELECT * Fr om {组别转换} where 1=2"
cmd2.CommandText = "SELECT * Fr om {Showcode转换} where 1=2"
dt = cmd2.ExecuteReader()
dt1 = cmd1.ExecuteReader()
dt2 = cmd.ExecuteReader()
If e.NewValue IsNot Nothing AndAlso e.NewValue.Length >2 Then
Dim dr,dr1,dr3 As DataRow
dr = dt.sqlFind("旧项目号= '"& e.NewValue &"'")
If dr IsNot Nothing Then
e.DataRow("项目号") =dr("项目号")
e.DataRow("ShowName")=dr("ProjectName")
e.DataRow("组别")=e.DataRow("项目号").SubString(0,2)
dr1 = dt1.sqlFind("原组别='"& e.DataRow("组别") &"'")
If dr1 IsNot Nothing Then
e.DataRow("组别")=""
e.DataRow("组别")=dr1("组别")
End If
Else
dr3=dt2.sqlFind("Project= '" & e.DataRow("项目号") &"'")
If dr3 IsNot Nothing Then
e.DataRow("项目号")=dr3("Project")
e.DataRow("组别") =e.DataRow("项目号").SubString(0,2)
e.DataRow("pic")=dr3("PIC name")
e.DataRow("ShowName")=dr3("Name")
Else
e.DataRow("项目号")=e.DataRow("旧项目号")
e.DataRow("组别") =e.DataRow("项目号").SubString(0,2)
End If
End If
End If
加好友 
发短信
Post By：2015/7/16 14:51:00 [显示全部帖子]
