保存按钮……
Dim khmc As WinForm.DropDownBox = e.Form.Controls("DropBox3")
Dim khdh As WinForm.DropDownBox = e.Form.Controls("DropBox1")
Dim zk As WinForm.TextBox = e.Form.Controls("textbox3")
Dim cpxh As WinForm.DropDownBox = e.Form.Controls("DropBox2")
Dim sl As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox2")
Dim dj As WinForm.TextBox = e.Form.Controls("textbox5")
Dim sfje As WinForm.TextBox = e.Form.Controls("textbox9")
Dim ytsl As WinForm.NumericComboBox = e.Form.Controls("NumericComboBox1")
Dim bz As WinForm.TextBox = e.Form.Controls("textbox4")
Dim zffs As WinForm.ComboBox = e.Form.Controls("ComboBox1")
khmc.Text = ""
khdh.Text = ""
cpxh.Text = ""
sl.value = Nothing
dj.Text = ""
sfje.Text = ""
zk.Text = "0"
ytsl.value = Nothing
bz.Text = ""
zffs.Text = "Cash"
……
NumericComboBox处理空值的时候，使用value ，不要设置text
加好友 
发短信
Post By：2019/11/1 8:39:00 [显示全部帖子]
