| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 更新後代码没有作用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82035) |
|
| -- 作者：tungwun -- 发布时间：2016/3/10 14:33:00 -- 更新後代码没有作用 红色的代码更新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
[此贴子已经被作者于2016/3/10 16:10:55编辑过]
|
|
| -- 作者：黄训良 -- 发布时间：2016/3/10 14:41:00 -- 测试没问题呀！ |
|
| -- 作者：大红袍 -- 发布时间：2016/3/10 15:11:00 -- 加入msgbox能弹出值吗？ |
|
| -- 作者：tungwun -- 发布时间：2016/3/10 16:09:00 -- [求助] 在ComboBox1加入了DataParse功能更新後代码没有作用了?不用DataParse代码可用 DataParse 向绑定字段(列)或者变量中写入数据的时候执行。 |
|
| -- 作者：狐狸爸爸 -- 发布时间：2016/3/10 21:12:00 -- DataParse的代码是怎样的，最好用例子说话 |
|
| -- 作者：tungwun -- 发布时间：2016/3/10 21:29:00 -- 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 End If [此贴子已经被作者于2016/3/10 21:30:12编辑过]
|
|
| -- 作者：狐狸爸爸 -- 发布时间：2016/3/10 21:38:00 -- 看看本次更新第31条怎么说的：
31、DaTaParse事件的e参数有改变，可能会出现不兼容情况，请参考新的帮助调整代码： http://www.foxtable.com/help/topics/0738.htm |
|
| -- 作者：大红袍 -- 发布时间：2016/3/11 -- 你说的不能执行时什么意思？我测试，可以赋值啊。你到底要实现什么效果？ |