以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于例子中的一个疑问  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120905)
--  作者：luchch
--  发布时间：2018/6/26 9:28:00
--  关于例子中的一个疑问
If e.DataCol.Name = "产品编号" Then
    Dim nms() As String = {"品名","型号","规格","单价"}
    If e.NewValue Is Nothing Then 
        For Each nm As String In nms 
            e.DataRow(nm) = Nothing 
        Next 
    Else 
        Dim dr As DataRow 
        dr = DataTables("产品").Find("[产品编号] = \'" & e.NewValue & "\'") 
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

这个段中单价能否正常通过，因为表的单价应为数字型的，但段中为String？
--  作者：luchch
--  发布时间：2018/6/26 9:37:00
--  
For Each nm As String In mns
    e.DataRow(nm)=dr(nm)
Next 
这三句，我有点不明白。
--  作者：有点甜
--  发布时间：2018/6/26 10:21:00
--  

 

For Each nm As String In mns \'循环mns数组的各个值

    msgbox(nm) \'你可以弹出nm的值看一下

    e.DataRow(nm)=dr(nm) \'给对应的列赋值
Next