放
DataColChanged 中只要加入这段即可：
Dim dr1 As DataRow
Select Case e.DataCol.Name
............
.............
Case "科目名称"
if dr("级次") =1 Then
e.DataRow("科目全称") = e.DataRow("科目名称")
ElseIf dr("级次") =2 Then
dr1 = DataTables("预算科目设置").Find("科目代码_全称 = '" & e.DataRow("上层ID") & "'")
if dr1 isnot nothing '如果是一行行输入的，加个提示更好···
If e.DataRow.Isnull("科目名称")
e.DataRow("科目全称") = ""
else
e.DataRow("科目全称") =dr1("科目全称") & "-" & e.DataRow("科目名称")
end if
end if
ElseIf dr("级次") =3 Then
dr1 = DataTables("预算科目设置").Find("科目代码_全称 = '" & e.DataRow("上层ID") & "'")
if dr1 isnot nothing
If e.DataRow.Isnull("科目名称")
e.DataRow("科目全称") = ""
else
e.DataRow("科目全称") =dr1("科目全称") & "-" & e.DataRow("科目名称")
end if
end if
End If
End Select
[此贴子已经被作者于2010-5-4 22:38:03编辑过]
加好友 
发短信
Post By：2010/5/3 19:16:00 [显示全部帖子]
