if e.DataRow("户籍市县")<>Nothing And Cstr(e.DataRow("户籍市县")).IndexOf("省",0)>0 And Cstr(e.DataRow("户籍市县")).IndexOf("省",0).Length>=2 then
e.DataRow("户籍市县") = e.DataRow("户籍地").SubString( Cstr(
e.DataRow("户籍地")).Length-
Cstr(
e.DataRow("户籍地")).IndexOf("省",0)+1,
Cstr(
e.DataRow("户籍地")).Length-
Cstr(
e.DataRow("户籍地")).IndexOf("省",0)-1)end if
其实BIN的方法最简单,没必要去字符串截取