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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求语句简化，谢谢？

共有1761人关注过本帖树形打印复制链接主题：[求助]求语句简化，谢谢？

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

[求助]求语句简化，谢谢？ 发帖心情

Post By：2018/11/28 17:00:00 [只看该作者]

Dim t As Table = Tables("筐架表")

Dim str As String = ""

Dim v1 = val(e.Form.controls("textbox1").text)

If v1 > 0 Then

str &= v1 & "铁箱"

t.Current("铁箱") = v1

Else

t.Current("铁箱") = Nothing

End If

Dim v2 = val(e.Form.controls("textbox2").text)

If v2 > 0 Then

str &= v2 & "铁筐"

t.Current("铁筐") = v2

Else

t.Current("铁筐") = Nothing

End If

Dim v3 = val(e.Form.controls("textbox3").text)

If v3 >0 Then

str &= v3 & "袋子"

t.Current("袋子") = v3

Else

t.Current("袋子") = Nothing

End If

Dim v4 = val(e.Form.controls("textbox4").text)

If v4 >0 Then

str &= v4 & "托盘"

t.Current("托盘") = v4

Else

t.Current("托盘") = Nothing

End If

e.Form.DropDownBox.value = str.trim("")

y2287958

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

加好友

发短信

等级：狐神帖子：4648 积分：33890 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/11/28 17:14:00 [只看该作者]

Dim ss As String = "铁箱|铁筐|袋子|托盘"

Dim str As String = ""

For i As Integer = 0 To ss.Split("|").Length - 1

If e.Form.controls("textbox" & i+1).text > 0 Then

str &= e.Form.controls("textbox" & i+1).text & "铁箱"

Tables("筐架表").Current(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text

Else

Tables("筐架表").Current(ss.Split("|")(i)) = Nothing

End If

e.Form.DropDownBox.value = str.trim("")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 17:21:00 [只看该作者]

先去看视频教程吧。

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

Post By：2018/11/28 21:57:00 [只看该作者]

Dim ss As String = "铁箱|铁筐|袋子|托盘"

Dim str As String = ""

For i As Integer = 0 To ss.Split("|").Length - 1

If e.Form.controls("textbox" & i+1).text > 0 Then

str &= e.Form.controls("textbox" & i+1).text & "铁箱"

Tables("筐架表").Current(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text

Else

Tables("筐架表").Current(ss.Split("|")(i)) = Nothing

End If

e.Form.DropDownBox.value = str.trim("")

错误提示：

.NET Framework 版本：2.0.50727.8793

Foxtable 版本：2018.10.9.1

错误所在事件：DropDownClosed

详细错误信息：

从字符串“”到类型“Double”的转换无效。

输入字符串的格式不正确。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试2.table

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 22:09:00 [只看该作者]

Dim ss As String = "铁箱|铁筐|袋子|托盘"
Dim str As String = ""
For i As Integer = 0 To ss.Split("|").Length - 1
    If val(e.Form.controls("textbox" & i+1).text) > 0 Then
        str &= e.Form.controls("textbox" & i+1).text & "铁箱"
        Tables("筐架表").Current(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text
    Else
        Tables("筐架表").Current(ss.Split("|")(i)) = Nothing
    End If
Next
e.Form.DropDownBox.value = str.trim("")

y2287958

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

加好友

发短信

等级：狐神帖子：4648 积分：33890 威望：0 精华：0 注册：2008/8/31 22:44:00

Post By：2018/11/28 22:13:00 [只看该作者]

Dim ss As String = "铁箱|铁筐|袋子|托盘"

Dim str As String = ""

For i As Integer = 0 To ss.Split("|").Length - 1

If Val(e.Form.controls("textbox" & i+1).text) > 0 Then

str &= e.Form.controls("textbox" & i+1).text & ss.Split("|")(i)

Tables("筐架表").Current(ss.Split("|")(i)) = e.Form.controls("textbox" & i+1).text

Else

Tables("筐架表").Current(ss.Split("|")(i)) = Nothing

End If

e.Form.DropDownBox.value = str.trim("")

fengwenliuyan

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

加好友

发短信

等级：四尾狐帖子：901 积分：8247 威望：0 精华：0 注册：2012/10/19 13:55:00

[求助]已经引用了，好奇您的代码和有点甜大神的，有部分区别，不太看得懂？ 发帖心情

Post By：2018/11/28 22:46:00 [只看该作者]

有点甜的：

str &= e.Form.controls("textbox" & i+1).text & "铁箱"

您的：

str &= e.Form.controls("textbox" & i+1).text & ss.Split("|")(i)

还有个问题，这代码引用后，数据录入完毕后，必须点击不同的客户的行，再点击之前的客户，数据才会更新，

比如，前两行都是客户“北京”的数据，那么输入数据后，必须点击第三行或者除北京外的行，再返回北京的行，这时候的窗口控件中的合计的文本框才会显示最新的计算结果，如果想要数据更新后，文本框同步更新，应该怎么改？代码放在哪里合适？是TimerTick中，还是TextChanged中，具体哪些代码放哪里？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:测试2.table

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/28 23:27:00 [只看该作者]

代码写到timertick事件

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

主题：[求助]求语句简化，谢谢？