不要用系统自带的克隆行，自己编码克隆：
dim r1 as row = tables("xxx").Current
dim r2 as row = tables("xxx")
for each c as col in Tables("xxx").Cols
if c.name <> "逻辑列" Then
r2(c.name) = r1(c.name)
end if
next
加好友 
发短信
Post By：2014/4/30 15:53:00 [显示全部帖子]
