Dim cmd As New SQLCommand
cmd.Connectio n N ame="cwgl"
Dim dt As DataTable
cmd.CommandText = "SELECT * Fro m {会计科目}"
dt = cmd.ExecuteReader()
If dt.DataRows.Count>0 Then
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
If trv.SelectedNode IsNot Nothing
Dim Result As DialogResult
Result = MessageBox.Show("您真的要删除这个会计科目吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
cmd.CommandText = "delete for m {会计科目} where 科目编码 =trv.SelectedNode"
cmd.ExecuteNo n Query()
trv.SelectedNode.Delete
End If
Else
Messagebox.show("对不起,没有数据,无法删除!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
End If
加好友 
发短信
Post By：2016/7/31 17:59:00 [只看该作者]
