- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 单元格显示的奇怪现象,是BUG? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54048)
-- 发布时间：2014/7/21 9:09:00
-- 单元格显示的奇怪现象,是BUG?
单元格显示的奇怪现象
我用代码新增行
单元格中无显示,但双击此单元格,内容显示出来, 鼠标离开后又看不见了. 第1行的单元格显示正常.
代码如下:
Dim Values() As String
Values = e.Form.Controls("TextBoxhaoma").value.split(Chr(13)) \'根据回车符拆分数组
\' messagebox.Show(Values.Length )
For Index As Integer = 0 To Values.Length - 1
messagebox.Show(Values(Index))
Dim r As Row = Tables("mt").AddNew
With Tables("mt")
.Position = .Rows.Count - 1
End With
messagebox.Show(Values(Index)) \'*** 这一行显示的values(index)是正常能看到的.
r("destination") = Values(Index)
r("content") = e.form.controls("textboxzhengwen").text
r("userSendDate") =Date.now()
Next
此主题相关图片如下：111.jpg
此主题相关图片如下：222.jpg
-- 发布时间：2014/7/21 9:12:00
--
r("destination") = Values(Index).Trim()
-- 发布时间：2014/7/21 9:15:00
--
你去看看是不是多了回车或者多了空格。
Dim Values() As String
Values = e.Form.Controls("TextBoxhaoma").value.split(Chr(13)) \'根据回车符拆分数组
For Index As Integer = 0 To Values.Length - 1
Dim r As Row = Tables("mt").AddNew
r("destination") = Values(Index).replace(chr(10), "").replace(" ", "")
r("content") = e.form.controls("textboxzhengwen").text
r("userSendDate") =Date.now()
Next
-- 发布时间：2014/7/21 10:13:00
--
是多了空格