[求助]自动增加3行怎么不起作用了代码是 Post By：2014/10/6 9:08:00 [只看该作者]
End Select Dim drs As List(Of DataRow) = DataTables("云鑫物流代收详单").Select("日期 is null and 姓名 is null") If drs.Count < 3 Then DataTables("云鑫物流代收详单").AddNew() Dim po As Integer po = Tables("云鑫物流代收详单").FindRow(Tables("云鑫物流代收详单").Current.DataRow) Tables("云鑫物流代收详单").Position = Tables("云鑫物流代收详单").Rows.Count - 1 Tables("云鑫物流代收详单").Position = Po End If
加好友 
发短信
Post By：2014/10/6 9:08:00 [只看该作者]
