Dim TB1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t As string = tb1.textTables("库存明细").Filter = "品名 = '" & t & "'"
Dim dr As DataRow = Tables("库存").Current.DataRowTables("库存明细").Filter = "[品名] = '" & dr("品名") & "'"
加好友 
发短信
Post By：2018/9/28 19:57:00 [显示全部帖子]
