Dim idxs As String = ""
For i As Integer = Tables("PPP").TopPosition To Tables("QT").BottomPosition
idxs &= "'" & Tables("PPP").Rows(i)("id") & "',"
Next
Dim f As New Filler
f.Filter = "id in (" & idxs.Trim(",") & ")"
f.SourceTable = DataTables("PPP") '指定数据来源
f.SourceCols = "PIC,length1,costprice" '指定数据来源列
f.DataTable = DataTable("qt") '指定数据接收表
f.DataCols = "pic,shangcheng price" '指定数据接收列
f.Fill() '填充数据
DataTables("qt").save()
如果黄色部分 （数据的接收lie 为关联表）
想改成 “补货单号。qt”
代码应该怎么处理啊？
[此贴子已经被作者于2015/10/31 13:17:01编辑过]
加好友 
发短信
Post By：2015/10/31 13:17:00 [只看该作者]
