Foxtable(狐表)用户栏目专家坐堂 → 窗口控從副本表字段拉入產生錯誤??


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

主题:窗口控從副本表字段拉入產生錯誤??

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2015/2/24 9:37:00 [只看该作者]

第二个问题,AfterLoad代码

 

If getconfigvalue("目錄樹列表","") = "" Then
    Return
End If

'------設定tabcontrol 第0頁標題
Dim pgs As WinForm.TabControl = e.Form.Controls("TabControl1")
pgs.SelectedIndex=0
pgs.SelectedPage.Text=e.Form.Controls("ComboBox_TB").Text

'-------查詢欄 載入
If GetConfigValue("目錄樹列表1","") > "" Then
    e.Form.Controls("CheckedComboBox_ROW1").Text = GetConfigValue("目錄樹列表1","").Split("#")(1).Replace("|",",")
    e.Form.Controls("TextBox2").Text =   e.Form.Controls("CheckedComboBox_ROW1").Text
End If
e.Form.text =e.Form.Controls("ComboBox_TB").Text

e.Form.Controls("ComboBox_TB").Text = GetConfigValue("目錄樹列表","").Split("#")(0)
e.Form.Controls("Cmb_FilterCol").Text = GetConfigValue("目錄樹列表","").Split("#")(1).Replace("|",",")

'綁定recordgrig1
Dim rgd1 As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
rgd1.Table = Tables("查詢作業_MAINTB")'指定绑定表
rgd1.Build() '重新生成记录窗口
e.Form.Controls("TextBox3").BindingField = "查詢作業_MAINTB.備註"


 回到顶部
总数 53 1 2 3 4 5 6 下一页