If e.DataCol.name = "shuliang" Then If e.DataRow("shuliang") Then Dim t As Table = Tables("rukudanhao.rukudan.minxi") For i As Integer = t.rows.count-1 To 0 Step -1 t.rows(i).delete Next Dim cc As Integer =e.DataRow("shuliang") t.addnew(cc) t.save() End If End If
加好友 
发短信
Post By：2016/4/8 14:26:00 [显示全部帖子]
