此主题相关图片如下:1.jpg
此主题相关图片如下:2.jpg
图1的“确定”的“click”时间代码如下
Dim tb1 As Table = Tables("申购明细选择_Table1")
Dim tb2 As Table = Tables("申购单.申购明细")
For Each ro As Row In tb1.Rows
If ro.Checked = True Then
tb2.AddNew()
Functions.Execute("AddNewItem","申购单.申购明细")
tb2.current("货品编号") = ro("货品编号")
ro.Checked = False
End If
Next
e.Form.close()
现在的问题是,只要勾选的内容在“插座”后,都会默认添加插座进去,然后最后一个勾选项被舍弃。但如果勾选在“插座”前的项,则插入的项都正确。表象就是好像“插座”这项始终都是被勾选的,但表中却不显示。