'业务种类的SelectedIndexChanged事件
Dim r As Row = Tables("表A").Current
if e.Sender.Value <> Nothing Then
Dim dr As DataRow = DataTables("表B").Find("业务种类 = '" & e.Sender.Value & "'")
If dr IsNot Nothing Then
r("大型数量") = dr("大型数量")
r("大型单价") = dr("大型单价")
r("小型数量") = dr("小型数量")
r("小型单价") = dr("小型单价")
Else
r("大型数量") = Nothing
r("大型单价") = Nothing
r("小型数量") = Nothing
r("小型单价") = Nothing
End If
End If
[此贴子已经被作者于2010-6-12 1:31:02编辑过]
加好友 
发短信
Post By：2010/6/12 1:29:00 [显示全部帖子]
