Dim dr1 As DataRow = e.DataRow
Dim str1 As String
Dim st As String
Select Case e.DataCol.Name
case "科目编码","科目名称"
if e.DataRow("科目编码").length >= 4
Dim strr As String = e.DataRow("科目编码").substring(0,4)
Dim fdr As DataRow = DataTables("科目表").find("科目编码='" & strr & "'")
if fdr isnot nothing then
st = fdr("科目名称")
end if
' MessageBox.Show("4")
elseif e.DataRow("科目编码").length >= 8
Dim strr As String = e.DataRow("科目编码").substring(0,8)
Dim fdr As DataRow = DataTables("科目表").find("科目编码='" & strr & "'")
if fdr isnot nothing then
st = fdr("科目名称")
str1 &= "-"& st
end if
else.............