- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 显示字符数量包括空格 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56999)
-- 发布时间：2014/9/16 16:38:00
-- 显示字符数量包括空格
Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim length As Integer = 0
Dim fdr As DataRow
For Each i As Integer In cst.CheckedIndices
fdr = DataTables("关键词库").Find("类别 = \'" & Forms("商品档案窗口").Controls("ComboBox4").Text & "\' and 中文 = \'" & cst.Items(i) & "\'")
If fdr IsNot Nothing Then
If fdr.IsNull("英文") = False Then
length += fdr("英文").Length
End If
End If
Next
Forms("商品档案窗口").Controls("Label1").Text = "" & 128 - length & ""
能帮我看看 128-length（包括空格应该怎么改一下啊）
谢谢
-- 发布时间：2014/9/16 16:41:00
--
什么意思,没看懂.
-- 发布时间：2014/9/16 16:51:00
--
Dim cst As WinForm.CheckedListBox = e.Form.Controls("CheckedListBox1")
Dim length As Integer = 0
Dim fdr As DataRow
For Each i As Integer In cst.CheckedIndices
fdr = DataTables("关键词库").Find("类别 = \'" & Forms("商品档案窗口").Controls("ComboBox4").Text & "\' and 中文 = \'" & cst.Items(i) & "\'")
If fdr IsNot Nothing Then
If fdr.IsNull("英文") = False Then
length += fdr("英文").Length
End If
End If
Next
Forms("商品档案窗口").Controls("Label1").Text = "" & 128 - length & ""
谢谢 ！
Label1是记“英文”列有多少字符的，但是没有包括空格，可不可以让Label1显示128-英文列（包括英文列空格的字符）
谢谢
-- 发布时间：2014/9/16 16:56:00
--
Forms("商品档案窗口").Controls("Label1").Text = 128 - length
-- 发布时间：2014/9/16 20:38:00
--
还是不行，能帮我看看吗？感谢！
此主题相关图片如下：111.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:字符加空格.table |
-- 发布时间：2014/9/16 21:27:00
--
改成这样
Dim count As Integer
If e.Checked Then
count = cst.CheckedIndices.Count
Else
count = iif(cst.CheckedIndices.Count <= 2, 0, cst.CheckedIndices.Count - 2)
End If
Forms("窗口1").Controls("Label1").Text = "还剩" & 128 - length - count & "个字符"
-- 发布时间：2014/9/16 21:28:00
--
好的 感谢你哦
-- 发布时间：2014/9/16 21:38:00
--
谢谢 还是能实现了呢?我在试试！
-- 发布时间：2014/9/17 11:06:00
--
甜美女！能在帮我看看吗？改了还是不行呢？
谢谢你！
-- 发布时间：2014/9/17 11:07:00
--
不可能不行，我测试ok的，你不是连替换代码都不会吧？
这段替换原来的 Forms("商品档案窗口").Controls("Label1").Text = "" & 128 - length & ""
Dim count As Integer
If e.Checked Then
count = cst.CheckedIndices.Count
Else
count = iif(cst.CheckedIndices.Count <= 2, 0, cst.CheckedIndices.Count - 2)
End If
Forms("窗口1").Controls("Label1").Text = "还剩" & 128 - length - count & "个字符"
[此贴子已经被作者于2014-9-17 11:07:17编辑过]