Foxtable(狐表)用户栏目专家坐堂 → [求助]关于不同窗口间的数据引用


  共有2808人关注过本帖树形打印复制链接

主题:[求助]关于不同窗口间的数据引用

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


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
[求助]关于不同窗口间的数据引用  发帖心情 Post By:2015/1/31 16:20:00 [显示全部帖子]

继续请教:

 

我做了窗口“报表输出”,窗口中有个"GroupBox","GroupBox"内有2个"DropBox"和"CheckBox1","CheckBox2"。

 

我在"DropBox1"和"DropBox2"内设置了下拉输入窗口“项目名称”,在项目名称目录树NodeMouseDoubleClick事件中编写代码,需要引

 

"DropBox"的Name,

 

以分别向"DropBox1"和"DropBox2"进行不同的输入,怎样引用?

 

另外,我还需要将这两个"DropBox"内的值引用到表事件的代码中,用以作为Excel报表模板中,细节区的打印数据筛选条件,

 

如:项目名称 = "DropBox1" 的值,子项目名称 = "DropBox2"的值

 



 回到顶部
帅哥哟,离线,有人找我吗?
青鸟
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/31 16:47:00 [显示全部帖子]

Bin老师给的是取得"DropBox"的值吧,我下面这段NodeMouseDoubleClick事件代码中,红色部分有问题,想法是通过选择不同的"DropBox",来获得不同的输入。两个"DropBox"都是绑定到同一个目录树窗口上的。

 

Dim dr As DataRow = e.Node.DataRow
Select Case e.Form.Controls
    Case "DropBox1"
        If e.Node.Level = 0 Then
            Return
        Else If e.Node.Level = 1 Then
            e.Form.DropDownBox.Value = dr("项目名称")
            e.Form.DropDownBox.CloseDropdown()
        End If
    Case "DropBox2"
        If e.Node.Level = 0 Then
            Return
        Else If e.Node.Level = 1 Then
            e.Form.DropDownBox.Value = dr("子项目名称")
            e.Form.DropDownBox.CloseDropdown()
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
青鸟
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/31 17:24:00 [显示全部帖子]

图片点击可在新窗口打开查看

DropBox1和DropBox2绑定的下拉窗口都是“项目名称目录树”

 

图片点击可在新窗口打开查看

希望在DropBox1中,点击“温江”输入的是“Outlets项目”,即:forms("报表输出").controls("DropBox1").text="Outlets项目"

 

图片点击可在新窗口打开查看

而在DropBox2中输入时,点击“温江”输入的则是“温江”,即:forms("报表输出").controls("DropBox1").text="温江"

 


 回到顶部
帅哥哟,离线,有人找我吗?
青鸟
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:151 积分:1110 威望:0 精华:0 注册:2015/1/24 15:26:00
  发帖心情 Post By:2015/1/31 17:26:00 [显示全部帖子]

上面最后一句话有误,应该是:而在DropBox2中输入时,点击“温江”输入的则是“温江”,即:forms("报表输出").controls("DropBox2").text="温江"


 回到顶部