Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题：列判断
1楼
yifan3429 发表于：2024/5/8 18:20:00
 Dim dr As DataRow
    dr = wdt.sqlFind("色卡_ID = '" & e.DataRow("色卡_ID") & "'")
    '    dr = wdt.sqlFind("[产品分类] = '主材'And [色卡_ID] = '" & e.DataRow("色卡_ID") & "'")
    If dr IsNot Nothing Then        
        e.DataRow("产品_单价") = dr(e.DataRow("产品_计价配件"))      会有不存在的列 
    End If
dr(e.DataRow("产品_计价配件"))  如果不存在就跳过或是当前行标红色 
[此贴子已经被作者于2024/5/8 18:20:53编辑过]
2楼
有点蓝 发表于：2024/5/9 8:35:00
If wdt.datacols.contains(e.DataRow("产品_计价配件")) Then        
        Dim dr As DataRow
    dr = wdt.sqlFind("色卡_ID = '" & e.DataRow("色卡_ID") & "'")
    '    dr = wdt.sqlFind("[产品分类] = '主材'And [色卡_ID] = '" & e.DataRow("色卡_ID") & "'")
    If dr IsNot Nothing Then        
        e.DataRow("产品_单价") = dr(e.DataRow("产品_计价配件"))      会有不存在的列 
    End If
End If
共2 条记录, 每页显示 10 条, 页签: [1]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.