If e.datacol.name = "桩号"
If e.datarow("桩号").length >= 3 then
e.DataRow("整桩号") = e.datarow("桩号").substring(0, 3)
Else
e.DataRow("整桩号") = nothing
End If
End if