drawcell事件
If e.Col.name = "科目名称" Then
Dim s As String = e.Row("科目名称")
Dim code As String = e.Row("科目代码")
If code.length > 4 Then
Dim dr As DataRow = e.Table.DataTable.find("科目代码='" & Left(code, code.length - 2) & "'")
Do While dr IsNot Nothing
s = dr("科目名称") & "-" & s
code = dr("科目代码")
If code.length > 4 Then
dr = e.Table.DataTable.find("科目代码='" & Left(code, code.length - 2) & "'")
End If
Loop
e.text = s
End If
End If
加好友 
发短信
Post By：2025/4/27 20:38:00 [显示全部帖子]
