以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 转换成表属性的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150654)
--  作者：leoli
--  发布时间：2020/6/3 21:39:00
--  [求助] 转换成表属性的代码
老师，请问如下如何转换成表属性的代码 ？ 感谢。


For Each rrrrr As Row In Tables("PriceNew")
         If rrrrr ("PType") <> "采购单价" AndAlso rrrrr ("PType") <> "订单委外单价"
        rrrrr ("FPType") =  9
        Else
          If rrrrr ("PType") ="采购单价"
             rrrrr ("FPType") = 1
        Else
           rrrrr ("FPType") =  0
          
       End If
        End If
Next

For Each rr As Row In Tables("PriceNew")
    Dim cmd As new SQLCommand
    cmd.CommandText = "Se lect Fname,FItemID From {t_ICItemCore} Where FNumber = \'" & rr("PartNo") & "\'"
    cmd.C
    Dim Values = cmd.ExecuteValues
    If Values.Count > 0 Then
        rr("FItemID") = Values("FItemID")
    Else
        rr("FItemID") = 0
    End If
Next
--  作者：有点蓝
--  发布时间：2020/6/4 8:20:00
--  
datacolchanged事件

Select Case e.DataCol.Name
    Case "PType"
        Dim rrrr As DataRow = e.DataRow
        If rrrr ("PType") <> "采购单价" AndAlso rrrrr ("PType") <> "订单委外单价"
            rrrrr ("FPType") =  9
        Else
            If rrrrr ("PType") ="采购单价"
                rrrrr ("FPType") = 1
            Else
                rrrrr ("FPType") =  0
                
            End If
        End If
    Case "PartNo"
        If e.DataRow.IsNull("PartNo") Then
            e.DataRow("FItemID") = 0
        Else
            Dim rr As DataRow = e.DataRow
            Dim cmd As new SQLCommand
            cmd.CommandText = "Se lect Fname,FItemID From {t_ICItemCore} Where FNumber = \'" & rr("PartNo") & "\'"
            cmd.C
            Dim Values = cmd.ExecuteValues
            If Values.Count > 0 Then
                rr("FItemID") = Values("FItemID")
            Else
                rr("FItemID") = 0
            End If
        End If
End Select