更新後代码没有作用 - 专家坐堂 - 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编辑过]

测试没问题呀！

加入msgbox能弹出值吗？

在ComboBox1加入了DataParse功能更新後代码没有作用了?不用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编辑过]

看看本次更新第31条怎么说的：

31、DaTaParse事件的e参数有改变，可能会出现不兼容情况，请参考新的帮助调整代码：

你说的不能执行时什么意思？我测试，可以赋值啊。你到底要实现什么效果？

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