我有连个问题请教您。1、我设计了一个配件装箱窗口，想在窗口表绑定了【ddqdb]想在条件筛选的表里再多选，然后将选择的数据信息，转存到“装箱清单”表里。我在【窗口-table]表的doubleclick事件里写的代码，不知道什么原因不执行。（我试了几个事件都一样不执行）请指教，谢谢！
Dim b1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim tm As String = b1.value
Dim b2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim xhh As String = b2.value
'DataTables("ddqdb").LoadFilter = "[项目号] ='" & xmh & "'"
'DataTables("ddqdb").load
Dim gr As DataRow = DataTables("ddqdb").Find("清单条码编码='" & tm & "'")
Dim xmh As String = gr("项目号")
Tables("装箱扫码_Table1").DataTable.LoadFilter = "[项目号] ='" & xmh & "'"
Tables("装箱扫码_Table1").DataTable.Load
Dim n As Integer = 0
Dim vls As String = ""
For Each r As Row In Tables("装箱扫码_Table1").GetCheckedRows
'Do Tables("装箱扫码_Table1").Checked = True
n = n + 1
Dim tmbm As String = r("清单条码编码")
Dim xxmh As String = r("项目号")
Dim kh As String = r("客户")
Dim bx As String = r("变压器型号"）
Dim zp As String = r("所属装配"）
Dim cp As String = r("产品类型")
Dim cmc As String = r("产品名称")
Dim cth As String = r("产品图号")
Dim xh As String = r("项号"）
Dim dts As Integer = r("台数"）
Dim djt As Integer = r("件每台"）
Dim kr As DataRow = DataTables("装箱清单表").Find("清单条码编码='" & xmh & "'")
If kr Is Nothing Then
kr = DataTables("装箱清单表").AddNew()
kr("序号") = n
kr("日期") = Date.now
kr("清单条码编码") = tmbm
kr("项目号") = xxmh
kr("客户") = kh
kr("变压器型号"） = bx
kr("所属装配"） = zp
kr("产品类型") = cp
kr("产品名称") = cmc
kr("产品图号") = cth
kr("项号"） = xh
kr("订单_台数"） = dts
kr("订单_件每台"） = djt
kr("订单_数量"） = dts * djt
' kr("装箱_台数"） = zts
' kr("装箱_数量"） = zsl
' kr("装箱_件数"） = zjs
' kr("余件数") = dsl - zjs
kr("箱号") = xhh
End If
'Loop
Next
2、我的窗口里单选按钮：全选和反选控件如何取值？如果我选了第一次后，把第一次选中的移走，再在同一界面选第二次第三次。
加好友 
发短信
Post By：2022/12/6 11:10:00 [只看该作者]
此主题相关图片如下：aa1c5af0a3db7002cd075a9f52035af.jpg