- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 复选框取值问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=184404)
-- 发布时间：2022/12/6 11:10:00
-- 复选框取值问题
我有连个问题请教您。1、我设计了一个配件装箱窗口，想在窗口表绑定了【ddqdb]想在条件筛选的表里再多选，然后将选择的数据信息，转存到“装箱清单”表里。我在【窗口-table]表的doubleclick事件里写的代码，不知道什么原因不执行。（我试了几个事件都一样不执行）请指教，谢谢！
此主题相关图片如下：aa1c5af0a3db7002cd075a9f52035af.jpg
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
-- 发布时间：2022/12/6 11:39:00
--
代码放到按钮事件里，另外是想使用复选框勾选？（http://www.foxtable.com/webhelp/topics/1776.htm），还是想使用鼠标拖动选择？（http://www.foxtable.com/webhelp/topics/1597.htm）