- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 下拉窗口增加行问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136109)
-- 发布时间：2019/6/7 1:57:00
-- 下拉窗口增加行问题？
在关联表中设计一个录入下拉窗口，但是要打开窗口需要增加一行，由于是多选择行，选择行总是从第二行开始填充，怎样写才能从第一行开始填充
Dim drs As List(Of DataRow) = DataTables("物料").Select("[选择] = True")
For Each dr As DataRow In drs
Dim yu As Row = Tables("订单.订单明细").AddNew()
If dr IsNot Nothing Then
yu("物料编号") = dr("物料编号")
End If
Next
e.Form.Close()
End Select
此主题相关图片如下：qq截图20190607015555.png
[此贴子已经被作者于2019/6/7 1:59:27编辑过]
-- 发布时间：2019/6/8 9:25:00
--
Dim drs As List(Of DataRow) = DataTables("物料").Select("[选择] = True")
If drs.Count > 0 AndAlso Tables("订单.订单明细").Rows.Count = 1
If Tables("订单.订单明细").Rows(0).IsNull("物料编号") Then Tables("订单.订单明细").Rows(0).Delete
End If
For Each dr As DataRow In drs
Dim yu As Row = Tables("订单.订单明细").AddNew()
If dr IsNot Nothing Then
yu("物料编号") = dr("物料编号")
End If
Next
e.Form.Close()
End Select
[此贴子已经被作者于2019/6/8 9:25:50编辑过]