|
Dim dt As DataTable
Dim cmd As New SQLCommand
cmd.CommandText="Select * FROM {T_CW_VoucherMerge} where {T_CW_VoucherMerge}.vchtype=34"
dt=cmd.ExecuteReader()
Dim jb As new SQLJoinTableBuilder("进货明细","dlybuy")
jb.addtable("dlybuy","vchcode","{dt}","vchtype")
jb.AddCols("{dlybuy}.vchcode","atypeid","ptypeid","qty","costprice","costtotal","period","{dlybuy}.vchtype","redword")
jb.Build()
MainTable=Tables("进货明细")
|
加好友 
发短信
Post By：2012/4/16 15:53:00 [只看该作者]
