老师好，我想通过窗口解决2个问题，用帮助里行复制和数据同步的代码，反复调试，还是解决不了，请你帮看一下1、有个下拉窗口“收货单下拉_Table1”，行号为复选框，选中行号，将选中的数据，填入“窗口1-table1”
Select
Case
e.DataCol.name
Case
"产品编号"
For Each r As Row In Tables("收货单下拉_Table1").GetCheckedRows
r = Tables("收货主表.收货明细表").AddNew()
dr("产品编号") = e.DataRow("产品编号")
dr("产品名称") = e.DataRow("产品名称")
dr("产品规格") = e.DataRow("产品规格")
Else
dr("产品编号") = e.DataRow("产品编号")
End
If
Case
"产品名称","产品规格"
Dim dr As
DataRow = DataTables("库存").Find("产品编号 = '" & e.DataRow("产品编号") & "'")
If
dr IsNot
Nothing
Then
dr(e.DataCol.Name) =
e.DataRow(e.DataCol.Name)
End
If
End
Select
2、下拉窗口“窗口3_table1”,窗口空间为“下拉组合框”，在组合框采用模糊查找，在组合框内加入输入客户名称，如果没有，直接关闭下拉窗口，在那块添加关闭窗口代码呢？代码怎么写？
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then '如果下拉窗口已经打开
Dim tbl As Table = Tables("收货单下拉_Table1")
If drp.Text = "" Then '如果内容为空
tbl.Filter = "" '显示所有客户
Else '否则根据输入内容进行模糊筛选
Dim txt As String = "'%" & drp.Text & "%'"
tbl.Filter = "客户 Like " & txt & " Or 电话 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
End If
End If
谢谢
[此贴子已经被作者于2019/1/25 18:37:13编辑过]
加好友 
发短信
Post By：2019/1/25 18:34:00 [只看该作者]
