以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  item为readonly  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=111132)
--  作者：lovebc299
--  发布时间：2017/12/15 16:50:00
--  item为readonly
写完代码报这个错


这个是代码
Dim Tabledd As Table = Forms("新增订单").controls("table1")
For Each Row1 As Row In Tables("订单下拉_table1").Rows
    If Row1("选择")=False Then
    Else
    Tabledd.AddNew()
    tabledd("客户名称")=Row1("客户")
    tabledd("素材名")=Row1("素材名")
    tabledd("名称")=Row1("名称")
    tabledd("编号")=Row1("编号")
    End If
Next
--  作者：有点甜
--  发布时间：2017/12/15 16:52:00
--  
Dim Tabledd As Table = Forms("新增订单").controls("table1").Table
For Each Row1 As Row In Tables("订单下拉_table1").Rows
    If Row1("选择")=False Then
    Else
        Dim nr = Tabledd.AddNew()
        nr("客户名称")=Row1("客户")
        nr("素材名")=Row1("素材名")
        nr("名称")=Row1("名称")
        nr("编号")=Row1("编号")
    End If
Next