- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求语句简化，谢谢？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128086)
-- 发布时间：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("") |
-- 发布时间：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
Next
e.Form.DropDownBox.value = str.trim("")
-- 发布时间：2018/11/28 17:21:00
--
先去看视频教程吧。
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187
-- 发布时间：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
Next
e.Form.DropDownBox.value = str.trim("")
错误提示：
.NET Framework 版本：2.0.50727.8793
Foxtable 版本：2018.10.9.1
错误所在事件：DropDownClosed
详细错误信息：
从字符串“”到类型“Double”的转换无效。
输入字符串的格式不正确。
-- 发布时间：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("")
-- 发布时间：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
Next
e.Form.DropDownBox.value = str.trim("")
-- 发布时间：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中，具体哪些代码放哪里？
-- 发布时间：2018/11/28 23:27:00
--
代码写到timertick事件