1、给新增行赋值应该这样
For Each Product As String() In Products
dim r as row = t.AddNew
r("公司名")=Product(0)
r("年份")=Product(1)
2、先绑定，然后对窗口表操作
dtb.AddDef("入库单价", Gettype(Double))
dtb.AddDef("入库金额", Gettype(Double))
'dtb.AddDef("合计数量", Gettype(Double))
'dtb.AddDef("合计金额", Gettype(Double))
Tables("窗口1_table2").DataSource = dtb.BuildDataSource ()
Dim t As Table=Tables("窗口1_table2")
For Each Product As String() In Products
dim r as row = t.AddNew
r("公司名")=Product(0)
r("年份")=Product(1)
加好友 
发短信
Post By：2021/12/15 8:41:00 [显示全部帖子]
