Dim e As object=args(0)
Dim tb As Table=args(1)
Dim dt,dt1,dt2 As DataTable
Dim cmd,cmd1,cmd2 As New SQLCommand
cmd.C
cmd1.C
cmd2.C
cmd1.CommandText = "SELECT * Fr om {组别转换}"
cmd.CommandText = "SELECT * Fr om {ERPcode}"
cmd2.CommandText = "SELECT * Fr om {Showcode转换}"
dt = cmd2.ExecuteReader()
dt1 = cmd1.ExecuteReader()
dt2 = cmd.ExecuteReader()
Select e.DataCol.Name
Case "旧项目号"
If tb.Current("旧项目号") IsNot Nothing Then
Dim dr,dr1 As DataRow
dr = dt.Find("旧项目号= '" & tb.Current("旧项目号") & "'")
dr1 = dt1.Find("原组别='"& tb.Current("组别") &"'")
If dr IsNot Nothing Then
tb.Current("项目号")=dr("项目号")
tb.Current("旧项目号")=dr("旧项目号")
tb.Current("ShowName")=dr("ProjectName")
tb.Current("组别")=tb.Current("项目号").SubString(0,2)
If dr1 IsNot Nothing Then
tb.Current("组别")=""
tb.Current("组别")=dr1("组别")
End If
Else
tb.Current("项目号")=tb.Current("旧项目号")
tb.Current("组别")=tb.Current("项目号").SubString(0,2)
dr1 = dt1.Find("原组别='"& tb.Current("组别") &"'")
If dr1 IsNot Nothing Then
tb.Current("组别")=""
tb.Current("组别")=dr1("组别")
End If
End If
End If
Case "项目号"
If tb.Current("项目号") IsNot Nothing Then
Dim dr2 As DataRow
dr2 = dt2.Find("Project= '" & tb.Current("项目号") & "'")
If dr2 IsNot Nothing Then
tb.Current("PIC")=dr2("PIC name")
tb.Current("ShowName")=dr2("Name")
tb.Current("预算开工时间")=dr2("Show/event open date")
tb.Current("预算完工时间")=dr2("Show/event close date")
End If
End If
End Select
加好友 
发短信
Post By：2015/7/15 19:48:00 [只看该作者]
此主题相关图片如下：qq图片20150715194817.png