Foxtable(狐表)用户栏目专家坐堂 → [求助]请教一个问题 已解决


  共有16987人关注过本帖平板打印复制链接

主题:[求助]请教一个问题 已解决

帅哥哟,离线,有人找我吗?
sohper
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:72 积分:614 威望:0 精华:0 注册:2009/5/23 10:22:00
[求助]请教一个问题 已解决  发帖心情 Post By:2009/6/26 22:06:00 [只看该作者]

在录入窗口中有两个TextBox控件,使用目录树输入时
代码如下:
Dim Tr As WinForm.TreeView = e.Form.Controls("Tvw1")
If e.Node.Level = 0 Or e.Node.Level =1 Or e.Node.Level =2 Then
    Return
End If
Dim Val() As String  = e.Node.FullPath.Split("\")
If Forms("发货编辑").Opened Then
    Dim Txb1 As WinForm.TextBox = Forms("发货编辑").Controls("TxtbClient")
    Txb1.Value = Val(3)
    Txb1.WriteValue()
    Dim Txb2 As WinForm.TextBox = Forms("发货编辑").Controls("TxtbSale")
    Txb2.Value = Val(1)
    Txb2.WriteValue()
Else
    Return
End If
e.Form.Close()


为什么在使用当中只有Txb2.Value赋值成功,而Txb1 赋值不成功,TextboxClient中是空白的,
使用其它的录入方法也是如此,对两个TextBox的Value属性赋值后,有一个会变成空白的!
[此贴子已经被作者于2009-6-26 23:29:16编辑过]

 回到顶部