Foxtable(狐表)用戶欄目專家坐堂 → 往焦點所在單元格傳輸數據失敗


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

主題:往焦點所在單元格傳輸數據失敗

帥哥喲,離線,有人找我嗎?
tld
  1樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:192 積分:1718 威望:0 精華:0 注冊:2017/2/3 10:29:00
往焦點所在單元格傳輸數據失敗  發帖心情 Post By:2020/2/9 16:33:00 [只看該作者]

老師,我通過雙擊tables("試樣信息表").current("檢測內容")打開“窗口1”,進行一系列操作后,得到字符串 str,希望:tables("試樣信息表").current("檢測內容")=str

發現不成功。在tables("試樣信息表").current("備注")單元格雙擊后打開“窗口1”,就能實現tables("試樣信息表").current("檢測內容")=str。

想請教,從窗口向主表中的焦點所在單元格寫數據不可以嗎?我希望雙擊哪個單元格,就向哪個單元格傳輸數據。可以做到嗎? 謝謝!

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


加好友 發短信
等級:超級版主 帖子:46802 積分:237452 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/2/9 22:47:00 [只看該作者]

肯定可以的。雙擊事件寫了什么代碼?窗口向單元格賦值又是怎么做的?

 回到頂部
帥哥喲,離線,有人找我嗎?
tld
  3樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:192 積分:1718 威望:0 精華:0 注冊:2017/2/3 10:29:00
  發帖心情 Post By:2020/2/10 20:27:00 [只看該作者]

If System.Windows.Forms.Control.ModifierKeys = Keys.Control And e.Col.Name="檢測內容"  ‘*********************如果改成其他列,比如“備注”就沒有問題
    Dim ddr As DataRow  = DataTables("通用檢測價格表").Find("次分類 = '" & e.Row("試樣名稱") & "'")
    If ddr Is Nothing Then
        msgbox("請檢查【試樣名稱】是否填寫正確")
        e.Cancel = True
    End If
    If ddr IsNot Nothing Then
        Public_檢測大類 = ddr("首分類")
        Public_次分類=DDR("次分類")
        Public_表名稱=e.Table.name
        Forms("窗口1").open
    End If
End If

*******************以下是窗口1的代碼
Dim nr1 As WinForm.TextBox = e.Form.Controls("詳細內容")
Dim jg1 As WinForm.TextBox = e.Form.Controls("檢測費")'
Dim sl1 As WinForm.TextBox = e.Form.Controls("檢測數量")
Dim nr2 As WinForm.TextBox = e.Form.Controls("試樣名稱")
Dim jg2 As WinForm.TextBox = e.Form.Controls("加工費")
Dim sl2 As WinForm.TextBox = e.Form.Controls("試樣數量")
Dim dr1 As Row= Tables(public_表名稱).current
dr1("檢測內容")=iif( sl1.text>0,(nr1.text & "*" & sl1.text),"")
dr1("加工內容")=iif(sl2.text>0,(nr2.text & "*" & sl2.text),"")
dr1("檢測費")=jg1.text
dr1("加工費")=jg2.text

如果雙擊的是“檢測內容”列,dr1("檢測內容")=iif( sl1.text>0,(nr1.text & "*" & sl1.text),"")就沒有結果。雙擊其他列打開窗口,就沒有問題


[此貼子已經被作者于2020/2/10 20:30:13編輯過]

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


加好友 發短信
等級:超級版主 帖子:46802 積分:237452 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/2/10 20:46:00 [只看該作者]

If System.Windows.Forms.Control.ModifierKeys = Keys.Control And e.Col.Name="檢測內容"  ‘*********************如果改成其他列,比如“備注”就沒有問題
    Dim ddr As DataRow  = DataTables("通用檢測價格表").Find("次分類 = '" & e.Row("試樣名稱") & "'")
    If ddr Is Nothing Then
        msgbox("請檢查【試樣名稱】是否填寫正確")
    else
        Public_檢測大類 = ddr("首分類")
        Public_次分類=DDR("次分類")
        Public_表名稱=e.Table.name
        Forms("窗口1").open
    End If
    e.Cancel = True
End If

 回到頂部
帥哥喲,離線,有人找我嗎?
tld
  5樓 | 信息 | 搜索 | 郵箱 | 主頁 | UC


加好友 發短信
等級:幼狐 帖子:192 積分:1718 威望:0 精華:0 注冊:2017/2/3 10:29:00
  發帖心情 Post By:2020/2/11 5:26:00 [只看該作者]

問題解決了,謝謝老師。我有些疑惑,為什么沒有代碼e.Cancel = True 就不能往焦點單元格寫數據?有什么規則嗎?

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


加好友 發短信
等級:超級版主 帖子:46802 積分:237452 威望:0 精華:8 注冊:2015/6/24 9:21:00
  發帖心情 Post By:2020/2/11 8:43:00 [只看該作者]

只要是在設計事件里打開窗口的都需要這樣用,這是固定用法:http://www.ezgnlh.tw/webhelp/topics/1499.htm

 回到頂部
229期22选5开奖结果