以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  想做个记住用户名的功能!!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49534)

--  作者:身份不明
--  发布时间:2014/4/19 16:21:00
--  想做个记住用户名的功能!!


图片点击可在新窗口打开查看此主题相关图片如下:11.jpg
图片点击可在新窗口打开查看

记住用户名的chick事件代码:SaveConfigValue("Register" & ComputerId, e.Form.Controls("UserName").Value)

这样设置后,下次登录还是没有保存设置。。

请老师帮忙做一下!


--  作者:Bin
--  发布时间:2014/4/19 16:23:00
--  
你这只是把它存下来了.

打开窗口的时候,你还得取它值,为控件赋值啊 
e.Form.Controls("UserName").Text=GetConfigValue("Register" & ComputerId, "")

--  作者:身份不明
--  发布时间:2014/4/19 16:25:00
--  
赋值到什么位置啊。。
--  作者:Bin
--  发布时间:2014/4/19 16:31:00
--  
当然是复制到 用户名 控件啊.....  否则赋值到哪里去?  
--  作者:身份不明
--  发布时间:2014/4/19 17:25:00
--  

Bin老师,我自己自定义的加载树,我是按逻辑列进行加载的。之后给我个错误提示:

.NET Framework 版本:2.0.50727.6413
Foxtable 版本:2014.4.16.1
错误所在事件:加载[外协管理]失败!
详细错误信息:
标准表达式中数据类型不匹配。


--  作者:Bin
--  发布时间:2014/4/19 17:25:00
--  
纸上不谈兵
--  作者:身份不明
--  发布时间:2014/4/19 17:30:00
--  


图片点击可在新窗口打开查看此主题相关图片如下:123.jpg
图片点击可在新窗口打开查看
加载树代码:

Dim Filter As String
If e.node.Text = "加载所有数据" Then
    Filter = ""
Else
    Dim dr As DataRow = e.Node.DataRow
    Select Case e.Node.Level
        Case 0
            Filter ="[外协完成] = \'" & dr("外协完成") & "\'"
        Case 1
            Filter ="[外协完成] = \'" & dr("外协完成") & "\' And [外协厂名称] = \'" & dr("外协厂名称") & "\'"
    End Select
End If
With DataTables("外协管理")
    .LoadFilter = Filter \'设置加载条件
    .LoadPage = 0 \'加载第一页
    .LoadTop = 500 \'每页5行
    .Load()
    e.Form.Controls("TextBox2").Value = 1 & "/" & .TotalPages
End With

 


图片点击可在新窗口打开查看此主题相关图片如下:321.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2014/4/19 17:34:00
--  
外协完成时 逻辑列吧

那不应该加单引号