一条一条的话，你直接在datacolchanged事件写代码不就行了？
Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "推荐人卡号" Then
Functions.Execute("AddChildren",dr,dr.DataTable,dr("推荐人卡号"),1)
End If
加好友 
发短信
Post By：2016/3/1 9:29:00 [只看该作者]
