varchar数值转换为int - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → varchar数值转换为int

共有4125人关注过本帖树形打印复制链接主题：varchar数值转换为int

pursdream

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

加好友

发短信

等级：婴狐帖子：16 积分：173 威望：0 精华：0 注册：2018/3/21 18:29:00

varchar数值转换为int 发帖心情

Post By：2018/3/28 11:32:00 [显示全部帖子]

窗口开发时，文本框输入是字符型的，但SQL中对应的数据格式是int型，如何转变？

请求有经验的您帮助。

pursdream

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

加好友

发短信

等级：婴狐帖子：16 积分：173 威望：0 精华：0 注册：2018/3/21 18:29:00

Post By：2018/3/29 9:12:00 [显示全部帖子]

试过了，还是出现以下情况： With Forms("预修复分析").Controls("TextBox1") If .Value Is Nothing Then Messagebox.Show("请输入编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If b.Filter = "{Point}.Optics_ID = 'CInt(.value) ' " 结果显示：将varchar值'CInt(.value)'转换为数据类型为int的列时发生语法错误
图片点击可在新窗口打开查看

此主题相关图片如下：6.jpg

此主题相关图片如下：6-1.jpg

pursdream

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

加好友

发短信

等级：婴狐帖子：16 积分：173 威望：0 精华：0 注册：2018/3/21 18:29:00

Post By：2018/3/29 10:07:00 [显示全部帖子]

Dim b As New SQLGroupTableBuilder("统计表1","Point") Dim d As fxDataSource b.C With Forms("预修复分析").Controls("TextBox1") If .Value Is Nothing Then Messagebox.Show("请输入编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If b.Filter = "{Point}.Optics_ID = "'& CInt(val(.value)) &'"" b.Groups.AddDef("_SN" , "序号") '根据型号分组 b.Groups.AddDef("_Xmm" , "X坐标(mm)") '根据型号分组 b.Groups.AddDef("_Ymm" , "Y坐标(mm)") '根据型号分组 b.Groups.AddDef("_Diameter_um" , "直径(μm)") '根据型号分组 End With 按照您的指导改完后，出现以下情况：
图片点击可在新窗口打开查看

此主题相关图片如下：6-3.jpg

pursdream

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

加好友

发短信

等级：婴狐帖子：16 积分：173 威望：0 精华：0 注册：2018/3/21 18:29:00

Post By：2018/3/29 10:12:00 [显示全部帖子]

之前是这样的：

b.Filter = "{Point}.Optics_ID = '3 '"

可以正常运行

pursdream

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

加好友

发短信

等级：婴狐帖子：16 积分：173 威望：0 精华：0 注册：2018/3/21 18:29:00

Post By：2018/3/29 10:15:00 [显示全部帖子]

Dim b As New SQLGroupTableBuilder("统计表1","Point") Dim d As fxDataSource b.C With Forms("预修复分析").Controls("TextBox1") If .Value Is Nothing Then Messagebox.Show("请输入编号!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If ' b.Filter = "{Point}.Optics_ID = "'& CInt(val(.value)) &'"" b.Filter = "{Point}.Optics_ID = '3 '" b.Groups.AddDef("_SN" , "序号") '根据型号分组 b.Groups.AddDef("_Xmm" , "X坐标(mm)") '根据型号分组 b.Groups.AddDef("_Ymm" , "Y坐标(mm)") b.Groups.AddDef("_Diameter_um" , "直径(μm)") End With d = b.BuildDataSource() Tables("预修复分析_Table1").DataSource = d '将统计结果绑定到Table

[此贴子已经被作者于2018/3/29 10:15:43编辑过]