[求助]初始值如何让字符串合并 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]初始值如何让字符串合并

共有2824人关注过本帖树形打印复制链接主题：[求助]初始值如何让字符串合并

荟美绘姿

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

[求助]初始值如何让字符串合并 发帖心情

Post By：2016/2/15 15:43:00 [显示全部帖子]

此主题相关图片如下：qq截图20160215151536.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.table

窗口1中的控件

要求：1、TextBox1文本框的初始值为"DateTimePicker1"(注：XXXX年XX月XX日XX点XX分）左右，当事人“单位”的驾驶员“驾驶员姓名”驾驶“车牌号码”(“车牌颜色”)“车辆类型”运送乘客，途径“ComboBox”时，因“ComboBox2”、班次行驶的被我运政执法人员查获。

2、当ComboBox2中的内容发生变化时TextBox1也随之发生改变。

请大侠帮忙，这个代码如何写，写在哪里？

谢谢

荟美绘姿

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 15:59:00 [显示全部帖子]

没人解决我只能自己顶起来

荟美绘姿

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 16:28:00 [显示全部帖子]

(注：XXXX年XX月XX日XX点XX分）这个我只不过说明了一下，意思是要把DateTimePicker1里的时间格式改成这样的格式

而且并控件并不要做绑定

[此贴子已经被作者于2016/2/15 16:34:00编辑过]

荟美绘姿

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 16:42:00 [显示全部帖子]

Dim cr As Row = Tables("表A").current

cr("TextBox1") = format(e.Form.controls("DateTimePicker1").text,"yyyy年MM月dd日HH时mm分") & "左右,当事人" & cr("单位") & "的驾驶员......" & cr("车辆类型") & e.Form.controls("ComboBox1").text & e.Form.controls("ComboBox2").text

每个控件不做绑定

这个错在哪里了

[此贴子已经被作者于2016/2/15 16:43:31编辑过]

荟美绘姿

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 16:56:00 [显示全部帖子]

出现运行错误

未找到类型“ComboBox”的公共成员“tex”

我弄错了，不好意思

[此贴子已经被作者于2016/2/15 16:59:57编辑过]

荟美绘姿

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 17:04:00 [显示全部帖子]

Dim cr As Row = Tables("表A").current

cr("违法内容")

如何将这段代码改成窗口控件TextBox1

荟美绘姿

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 17:08:00 [显示全部帖子]

Dim cr As Row = Tables("表A").current

cr("违法内容")

如何将这段代码改成窗口控件TextBox1

荟美绘姿

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/15 17:12:00 [显示全部帖子]

Dim cr As Row = Tables("表A").current

e.Form.Controls("TextBox1").Text = format(e.Form.controls("DateTimePicker1").value,"yyyy年MM月dd日HH时mm分") & "左右,当事人" & cr("单位") & "的驾驶员......" & cr("车辆类型") & e.Form.controls("ComboBox1").text & e.Form.controls("ComboBox2").text

谢谢，完整代码

荟美绘姿

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/16 10:33:00 [显示全部帖子]

Dim cr As Row = Tables("ybchengxu").current
e.Form.Controls("TextBox1").Text = format(e.Form.controls("DateTimePicker1").value,"yyyy年MM月dd日HH时mm分") & "左右,当事人" & cr("clxx_cz") & "的驾驶员" & cr("clxx_jsyxm") & "驾驶" & cr("clxx_lphm") & "(" & cr("clxx_cpys") & ")" & cr("clxx_cllx_jb") & cr("clxx_cllx_lx") & "运送乘客,途经" & e.Form.controls("ComboBox1").text & "时,因" & e.Form.controls("ComboBox2").text & "被我运政执法人员查获."

文字中的逗号和句号无法用全角，这是咋会事？

比如："被我运政执法人员查获."中间的“.”我要求为“。”

[此贴子已经被作者于2016/2/16 10:51:13编辑过]

荟美绘姿

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：238 积分：1838 威望：0 精华：0 注册：2014/7/1 8:56:00

Post By：2016/2/16 10:57:00 [显示全部帖子]

我顶一下吧

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：[求助]初始值如何让字符串合并