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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 数据转换

共有4110人关注过本帖树形打印复制链接主题：[求助] 数据转换

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/6/22 11:30:00 [只看该作者]

老师，如下麻烦批点，谢谢。

Dim fdr As DataRow = dt.Find("FCyID='" & dr("FCyID") & "'and FPType='" & dr("FPType") & "' and FStartQty=" & dr("FStartQty").SetFormat("0") & " and FEndQty=" & dr("FEndQty").SetFormat("0"))

有点蓝

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

加好友

发短信

等级：超级版主帖子：105961 积分：538880 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/22 11:32:00 [只看该作者]

SetFormat只能用到列属性里。代码请使用format，或者round

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/6/22 20:21:00 [只看该作者]

老师，改成如下的黄色的，可结果这两列出来的还是0.0000000000 和 0.0000000000 如何才能使它们成 0 和 0.

在表达式中使用[FSupID]+'-'+[FItemID]+'-'+[FUnitID]+'-'+[FCyID]+'-'+[FPType]+'-'+convert([FStartQty],'System.Int32')+'-'+convert([FEndQty],'System.Int32') ，这绿色的也可以转换成 0 和0.

可以帮忙在以下代码也修正过来吗？感谢。

Dim fdr As DataRow = dt.Find("FSupID='" & dr("FSupID") & "' and FItemID='" & dr("FItemID") & "' and FUnitID='" & dr("FUnitID") & "'and FCyID='" & dr("FCyID") & "'and FPType='" & dr("FPType") & "'and FStartQty='" & format(dr("FStartQty"),"00.00") & "'and FEndQty='" & format(dr("FEndQty"),00.00) & "'")

有点蓝

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

加好友

发短信

等级：超级版主帖子：105961 积分：538880 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/22 20:45:00 [只看该作者]

请上传实例说明问题

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/6/22 22:39:00 [只看该作者]

老师，如附件，我从服务器上复制下来的表。

如何用窗口中的代码得到跟表达式列ID相同的值，也就是小数点后没这么多零。然后写入到列ID2中。谢谢。

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/6/22 22:40:00 [只看该作者]

此主题相关图片如下：捕获.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:test.rar

有点蓝

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

加好友

发短信

等级：超级版主帖子：105961 积分：538880 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/22 23:02:00 [只看该作者]

窗口代码和上面要实现的功能半毛钱关系都没有，如果要拼接数据，参考：

Dim r As Row = Tables("test1").Current

Output.Show(r("FSupID") & "-" & r("FEntryID") & "-" & r("FUnitID") & "-" & r("FPrice") & "-" & r("FCyID") & "-" & Format(r("FStartQty"),"0") & "-" & Format(r("FEndQty"),"0"))

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/6/22 23:41:00 [只看该作者]

老师，显示对了。现在把这个format 放在前面，如下好像就不对了，可以再帮忙指点一下吗？

Dim fdr As DataRow = dt.Find("FSupID='" & dr("FSupID") & "' and FItemID='" & dr("FItemID") & "' and FUnitID='" & dr("FUnitID") & "'and FCyID='" & dr("FCyID") & "'and FPType='" & dr("FPType") & "'and format(FStartQty,"0" )= '" & dr("FStartQty") & "'and format(FEndQty,"0")='" & dr("FEndQty") & "'")

有点蓝

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

加好友

发短信

等级：超级版主帖子：105961 积分：538880 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/6/23 8:53:00 [只看该作者]

没看懂到底要做什么，如果列类型是一致的，在查询条件里完全不需要format。

leoli

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

加好友

发短信

等级：小狐帖子：301 积分：2547 威望：0 精华：0 注册：2018/11/15 12:35:00

Post By：2020/6/23 10:55:00 [只看该作者]

不好意思老师，以下黄色这样表达正确吗？当我保存时，出现错误码了，执行不了。麻烦了。

Dim fdr As DataRow = dt.Find("FSupID='" & dr("FSupID") & "' and FItemID='" & dr("FItemID") & "' and FUnitID='" & dr("FUnitID") & "'and FCyID='" & dr("FCyID") & "'and FPType='" & dr("FPType") & "'and format(FStartQty,"0" )= '" & dr("FStartQty") & "'and format(FEndQty,"0")='" & dr("FEndQty") & "'")

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

总数 32 上一页 1 2 3 4 下一页

主题：[求助] 数据转换