想实现 扫码枪扫一下（还没提交数据，先填入表格，再最后保存），就自动增加行，行的值等于文本框收到的条码的值

此主题相关图片如下：微信截图_20170422003304.png

Dim wb As New weui
Selec t Case e.Path
    Case "addnew.htm"
        If e.PostValues.Count = 0 Then

            wb.AddForm("","form1","addnew.htm")
            With wb.AddInputGroup("form1","ipg1","扫一扫条形码,自动录入")       
                With .AddInput("number","条形码","text")

                       .Attribute = ""  \'事件调用增加行，填入数据
                End With                           
            End With            
            
            With wb.AddTable("","Table1")
                .CreateFromTable(Tables("明细"),True)
            End With

            e.WriteString(wb.Build) \'生成网页
                    
End Selec t

js文件增加行不知道怎么写：

function calc(){

dim dr as datarow = datatables("明细").addnew

dr("number") = number.value                           这样写是错的！！

 }