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（包括空格应该怎么改一下啊）
谢谢
加好友 
发短信
Post By：2014/9/16 16:38:00 [只看该作者]
