| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 批量增加行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127861) |
| -- 作者：yangwenghd -- 发布时间：2018/11/23 17:18:00 -- 批量增加行 老师 如果我再添加一个按钮 NumericComboBox1 可以在下面代码的基础上再添加行的数量吗？ Dim dr As DataRow = DataTables("学习表").addnew dr("学习类型")=e.form.controls("ComboBox4").text 感谢 感谢
|
| -- 作者：有点甜 -- 发布时间：2018/11/23 17:26:00 -- For i As Integer = 1 To e.form.controls("NumericComboBox1").value |
| -- 作者：yangwenghd -- 发布时间：2018/11/23 18:17:00 -- 感谢 感谢 老师 为什么这个清楚能表，但是不能清楚窗口的表啊 感谢 感谢 With DataTables("代销产品录入窗口_Table2") \'.DataRows.AddNew() \'增加一行 \'.DataRows.AddNew(3) \'增加三行 \'.DataRows.Delete(0) \'删除第一行 .DataRows.Clear() \'清除所有行 End With |
| -- 作者：有点蓝 -- 发布时间：2018/11/23 20:07:00 -- for i as integer = Tables("代销产品录入窗口_Table2").rows.count - 1 to 0 step -1 Tables("代销产品录入窗口_Table2").rows(i).delete next
|
| -- 作者：yangwenghd -- 发布时间：2018/11/26 16:32:00 -- For i As Integer = Tables("代销产品录入窗口_Table2").DataRows.Clear - 1 To 0 Step -1 Tables("代销产品录入窗口_Table2").Clear(i).delete Next 老师 能帮忙再检查一下这个吗？如果只是清除代销产品录入窗口_Table2表显示列的所有行，不是删除行是哪里问题啊 感谢 感谢
|
| -- 作者：有点甜 -- 发布时间：2018/11/26 18:10:00 -- For i As Integer = Tables("代销产品录入窗口_Table2").rows.count- 1 To 0 Step -1
Tables("代销产品录入窗口_Table2").rows(i).delete Next |
| -- 作者：yangwenghd -- 发布时间：2018/11/26 18:18:00 -- 感谢 感谢 老师 只是这个还是删除行，相对于选择这个表控件的所有行，然后 按键盘上的 delete ，感谢 感谢 |
| -- 作者：有点甜 -- 发布时间：2018/11/26 20:00:00 -- For Each r As Row In Tables("代销产品录入窗口_Table2").rows For Each c As Col In Tables("代销产品录入窗口_Table2").Cols r(c) = Nothing Next Next |