Foxtable(狐表)用戶欄目專家坐堂 → 使用記錄窗口輸入新數據


  共有383人關注過本帖樹形打印復制鏈接

主題:使用記錄窗口輸入新數據

美女呀,離線,留言給我吧!
Phoebe菲比
  1樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
使用記錄窗口輸入新數據  發帖心情 Post By:2022/4/11 16:14:00 [只看該作者]

最近一直在設計窗口,調整各種控件的格式實在太煩人了,想了辦法用記錄窗口代替各類列表、文本框、日期等控件,不知道可不可行?
不太熟悉記錄窗口和表事件的功能。
現在想實現一個功能:先在“項目信息”表中找到對應的“項目名稱”列表,再根據選中的項目名稱在“合同信息”表中找到對應的“合同名稱”列表。

這是我的代碼:表事件--->PrepareEdit事件
Select Case e.Col.name
    Case "項目名稱"
        e.Col.combolist = DataTables("項目信息").SQLGetComboListString(e.Col.name)
    Case "合同名稱"
        e.Col.combolist = DataTables("合同信息").SQLGetComboListString("合同名稱","項目名稱 = '" & e.NewValue & "'")
End Select

目前該代碼是不可運行的,想請各位大佬指導下。
另外還想了解下,記錄窗口可不可以代替窗口輸入?有什么方法可以更簡潔地設計窗口,調整各類控件尺寸實在太繁瑣了。

 回到頂部
帥哥,在線噢!
有點藍
  2樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:85402 積分:433373 威望:0 精華:9 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2022/4/11 16:22:00 [只看該作者]

如果是為了設置下拉項目,這個代碼不會有問題。

最簡潔地設計方式就是花錢找個人替您做,不然還是老老實實動手吧

 回到頂部
美女呀,離線,留言給我吧!
Phoebe菲比
  3樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
  發帖心情 Post By:2022/4/11 16:27:00 [只看該作者]

請問用記錄窗口可以替代窗口控件設計嗎?


 回到頂部
美女呀,離線,留言給我吧!
Phoebe菲比
  4樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
  發帖心情 Post By:2022/4/11 16:29:00 [只看該作者]

目前出現了這樣的問題。
圖片點擊可在新窗口打開查看此主題相關圖片如下:微信圖片_20220411162818.png
圖片點擊可在新窗口打開查看

 回到頂部
美女呀,離線,留言給我吧!
Phoebe菲比
  5樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
  發帖心情 Post By:2022/4/11 16:30:00 [只看該作者]

我大概是想實現一個類似行政區域案例的目錄樹下拉的效果,但是每一列來自不同的表,同時能在記錄窗口顯示。

 回到頂部
帥哥,在線噢!
有點藍
  6樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:85402 積分:433373 威望:0 精華:9 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2022/4/11 16:42:00 [只看該作者]

e.Col.combolist = DataTables("合同信息").SQLGetComboListString("合同名稱","項目名稱 = '" & e.row("項目名稱") & "'")

 回到頂部
美女呀,離線,留言給我吧!
Phoebe菲比
  7樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
  發帖心情 Post By:2022/4/11 17:08:00 [只看該作者]

Select Case e.Col.name
    Case "項目名稱"
        e.Col.combolist = DataTables("項目信息").SQLGetComboListString(e.Col.name)
    Case "合同名稱"
        ' Dim r1 As String = e.Row("項目名稱")
        If e.Col Is Nothing Then
            e.Row.Reject
        Else
            e.Col.combolist = DataTables("合同信息").SQLGetComboListString("合同名稱","項目名稱 = '" & e.Row("項目名稱")  & "'")
        End If
End Select


 回到頂部
帥哥,在線噢!
有點藍
  8樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:超級版主 帖子:85402 積分:433373 威望:0 精華:9 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2022/4/11 17:09:00 [只看該作者]

if判斷沒有任何用處,去掉

 回到頂部
美女呀,離線,留言給我吧!
Phoebe菲比
  9樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
  發帖心情 Post By:2022/4/11 17:10:00 [只看該作者]

藍版,我還想實現一個選擇性的功能:如果“項目名稱”下對應項目沒有對應的合同,則清空除“項目名稱”外其他列的全部內容,等于新輸入數據。
用于在我選錯一條數據后,重新再選擇一個數據。

 回到頂部
美女呀,離線,留言給我吧!
Phoebe菲比
  10樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:135 積分:871 威望:0 精華:0 注冊:2021/8/17 15:39:00
  發帖心情 Post By:2022/4/11 17:16:00 [只看該作者]

主要是用來判斷 該項目名稱下是否已經錄入對應的合同。
比如說我已經選中了一個已有的,但是想改成一個沒有的(等于直接在該行重新輸入),則需要清空其他列自動輸入的值。

 回到頂部
總數 16 1 2 下一頁
国产精品边做奶水狂喷无码