以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  DataTables表中逻辑列勾选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185748)

--  作者:青丘狐
--  发布时间:2023/3/14 15:57:00
--  DataTables表中逻辑列勾选

查询表 DoubleClick

双击单元格后执行。

 

DataTables(A)和 DataTables(B)组成查询表数据复制到Tables(C)表  DataTables(B)表中的逻辑列自动勾选的代码怎么写

 

 

If Forms("入库物资导入").Opened = True Then
    Dim r As Row = Tables("入库明细").Current
    Dim r1 As Row = Tables("入库物资导入_Table1").Current
    r("品名") = r1("品名")
    r("材质") = r1("材质")
    r("规格") = r1("规格")
    r("长度") = r1("长度")
    r("产地") = r1("产地")
    r("入库数量") = r1("采购件数")
    r("入库重量") = r1("采购重量")
    
    
    DataTables("采购计划明细表").ColSel("入库审核") = True
   
    Forms("入库物资导入").close
    
    
End If

[此贴子已经被作者于2023/3/14 15:57:21编辑过]

--  作者:有点蓝
--  发布时间:2023/3/14 16:11:00
--  
先看看:http://www.foxtable.com/webhelp/topics/2925.htm


最后,要通过查询表去定位表B的话,只能使用Find使用关键列进行查询

dim dr as datarow = DataTables("采购计划明细表").Find(“品名=\'" & e.row(""品名"") & "\' and 材质=...........”)
if dr isnot nothing then
dr("入库审核") = True
endif