参考:
http://www.foxtable.com/webhelp/topics/3279.htm、
http://www.foxtable.com/webhelp/topics/0625.htm
比如
Select Case e.DataCol.Name
Case "大类","分类"
If e.DataRow.IsNull("大类") orelse e.DataRow.IsNull("分类") Then
else
e.datarow("代码") = PY.GetPY(e.DataRow("大类"), True, 3)(0) & PY.GetPY(e.DataRow("分类"), True, 3)(0)
end if
End Select