Dim qsrwzdcphbid As WinForm.TextBox = e.Form.Controls("产品化表ID") Dim fdr As DataRow = DataTables("审核产品化表").SQLFind("产品化表ID='" & qsrwzdcphbid.text & "'") If fdr IsNot Nothing Then DataTables("审核产品化表").loadFilter="产品化表ID='"& qsrwzdcphbid.text & "'" DataTables("审核产品化表").load Else MessageBox.Show("输入的产品化表ID不存在,请核实","提示",MessageBoxButtons.OK,MessageBoxIcon.Error) End If
加好友 
发短信
Post By：2015/6/15 10:47:00 [显示全部帖子]
