如代码
Dim r As Row = Tables("表A").AddNew
r("资产名称") = e.Form.Controls("CheckedComboBox1").Text
r("资产编号") = e.Form.Controls("ComboBox1").Text
r("资产类别") = e.Form.Controls("ComboBox2").Text
加好友 
发短信
Post By：2015/11/3 11:57:00 [显示全部帖子]
