以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  清除行内容  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=195736)

--  作者:1234567
--  发布时间:2025/3/5 14:19:00
--  清除行内容

如何清除当前行的除第一列的所有列的内容?


--  作者:有点蓝
--  发布时间:2025/3/5 14:27:00
--  
dim r as row = Tables("订单").current
if r isnot nothing
For i as integer = 1 to Tables("订单").Cols.count - 1
   r(i)=nothing

Next
end if

--  作者:1234567
--  发布时间:2025/3/5 15:13:00
--  

DataColChanged

 

Dim dt As DataTable = e.DataTable
Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工步代码", "材料牌号"
        If dr("工步代码") = "010101" Then
            For Each c As DataCol In dt.DataCols
                If c <> "工步代码" OrElse c <> "材料牌号" Then \'如何排除[工步代码]列和[材料牌号]列?
                    dr(c) = Nothing
                End If
            Next      
            dr("加工阶段") = "1"
        End If
End Select


--  作者:有点蓝
--  发布时间:2025/3/5 15:28:00
--  
If c <> "工步代码" andalso c <> "材料牌号" Then 


--  作者:1234567
--  发布时间:2025/3/5 15:37:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2025/3/5 16:19:00
--  
c.name <> "工步代码"
--  作者:1234567
--  发布时间:2025/3/5 16:27:00
--  

If c.name <> "工步代码" OrElse c.name <> "材料牌号" Then

能否用In 运算符用来判断某一个值是否在指定的一系列值中?


--  作者:有点蓝
--  发布时间:2025/3/5 16:30:00
--  
不能
--  作者:y2287958
--  发布时间:2025/3/6 10:44:00
--  
If {"工步代码", "材料牌号"}.contains(c.name) = False Then