更新後代码没有作用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红色的代码更新11-3-2016版後没有作用,原可以在按下按钮加入"偈油"在combpBox1中?现在没有作用了

If Tables("TAXI").Current.Locked = False Then

e.Form.controls("comboBox1").Select

e.Form.controls("comboBox1").Text="偈油"

e.Form.controls("TextBox5").Select

e.Form.controls("TextBox5").Text="195"

End If

在ComboBox1加入了DataParse功能更新後代码没有作用了?不用DataParse代码可用

DataParse

向绑定字段(列)或者变量中写入数据的时候执行。

[此贴子已经被作者于2016/3/10 16:10:55编辑过]

在ComboBox1加入了DataParse功能更新後代码没有作用了?不用DataParse代码可用

DataParse

向绑定字段(列)或者变量中写入数据的时候执行。

If e.Value IsNot Nothing Then

If e.Value = "1" Then

e.Value = "修理泠氣,日本翻新凍Cail一個,方哇呶,抽真空入環保雪種,入134a泵油,清洗散熱網"

ElseIf e.Value = "2" Then

e.Value = "修理冷氣,換日本翻新冷氣泵,抽真空入環保雪種,入134a泵油"

ElseIf e.Value = "5" Then

e.Value = "修理冷氣,洗風口抽真空入環保雪種入134a泵油"

ElseIf e.Value = "6" Then

e.Value = "修理冷氣改啤5分喉抽真空入環保雪種入134a泵油"

ElseIf e.Value = "7" Then

e.Value = "修泠氣泵極力子換拮歐一個"

ElseIf e.Value = "8" Then

e.Value = "修泠氣泵極力子換拮歐一個,翻新極力子片一個"

ElseIf e.Value = "9" Then

e.Value = "修風機,換風機摩打一個(新件)"

ElseIf e.Value = "10" Then

e.Value = "修理冷氣,換4分喉一條抽真空入環保雪種入134a泵油"

ElseIf e.Value = "11" Then

e.Value = "修理電器,換日本翻新打南礳,換電原線座"

ElseIf e.Value = "12" Then

e.Value = "修理電器,換日本翻新士撻"

End If

[此贴子已经被作者于2016/3/10 21:30:12编辑过]

主题：更新後代码没有作用