| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]自动增加3行怎么不起作用了代码是 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57856) |
| -- 作者：云鑫物流 -- 发布时间：2014/10/6 9:08:00 -- [求助]自动增加3行怎么不起作用了代码是 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 |
| -- 作者：有点甜 -- 发布时间：2014/10/6 9:23:00 -- 什么意思？
Dim drs As List(Of DataRow) = DataTables("云鑫物流代收详单").Select("日期 is null and 姓名 is null") |